On Sun, 3 Nov 2019 13:51:19 -0700
Philip Prindeville wrote:
> then $uniq{A} is 4, but the number of elements in @hdrs would be 1
> (because of the ‘!’ which only passes the first).
>
> This seems counter-intuitive. What if I want to count the absolute
> number of headers of type ‘X-yzzy:’ regard
Sigh… “downside”.
> On Nov 3, 2019, at 2:32 PM, Philip Prindeville
> wrote:
>
> What would be the downsize of having:
>
> my @hdrs = grep($uniq{$_}++, $pms->{msg}->get_header ($hdr));
>
> instead and counting ALL instances of $hdr, not just the unique RHS’s?
>
>
>
>> On Nov 3, 2019, at 1
What would be the downsize of having:
my @hdrs = grep($uniq{$_}++, $pms->{msg}->get_header ($hdr));
instead and counting ALL instances of $hdr, not just the unique RHS’s?
> On Nov 3, 2019, at 1:51 PM, Philip Prindeville
> wrote:
>
> Hi.
>
> I’m looking at:
>
> # Return true if the count
Hi.
I’m looking at:
# Return true if the count of $hdr headers are within the given range
sub check_header_count_range {
my ($self, $pms, $hdr, $min, $max) = @_;
my %uniq = ();
my @hdrs = grep(!$uniq{$_}++, $pms->{msg}->get_header ($hdr));
return (scalar @hdrs >= $min && scalar @hdrs <= $max)