GetOptions(\my %opt,
'debug!',
+ 'count|c!',
'simplify|s:s',
'ignore-case|i!',
'min|min-count|unique|u:i',
my $HEADERMATCH = qr/ [a-z]+ (?: (?:-\w+)+ | \ by ) /ix;
+my (%headercount, @headercache);
+
while (readline) {
s/(.+)\n//m;
my $hash = $1;
}
for (@headers) {
+ my $line = $_->[2] // join(': ', @$_);
if (defined $opt{min} or $opt{max}) {
- state $seen;
- my $count = $seen->{ $_->[0] }->{ $_->[1] // '' }++;
- next if $count >= ($opt{min} // 0) + ($opt{max} || 1);
- next if $count < ($opt{min} // 0);
+ my $counter = \$headercount{ $_->[0] }->{ $_->[1] // '' };
+ my $excess = $$counter++ - ($opt{min} // 0);
+ next if $excess >= ($opt{max} || 1);
+ next if $excess < 0;
+ if ($opt{count}) {
+ push @headercache, [ $line, $excess ? \undef : $counter ];
+ next;
+ }
}
- say $_->[2] // join(': ', @$_);
+ say $line;
}
last BLOCK;
}
}
+for (@headercache) {
+ say ${$_->[1]} // '', "\t", $_->[0];
+}
+
__END__
=head1 NAME