Gunnar Hjalmarsson wrote:
for my $dir ( sort keys %HoA ) {
print "$dir\n";
my @basenames = @{ $HoA{$dir} };
my %count;
for my $frames ( @basenames ) {
$count{$frames} += 1;
}
for ( sort keys %count ) {
printf "%30s\t%04d\n", $_, $count{$_};
}
}
Or with less typing:
for ( sort keys %HoA ) {
print "$_\n";
my %bn;
%bn = map { $_, ++$bn{$_} } @{ $HoA{$_} };
printf "%30s\t%04d\n", $_, $bn{$_} for sort keys %bn;
}
;-)
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
