in reply to Getting started -- hashes!
my %entries; while ( my $entry = <DATA> ) { chomp $entry; my ( $size, $name ) = split /\s+/, $entry; push @{$entries{$size}}, $name; } local $" = "\t"; print scalar( @{$entries{$_}} ), ": @{$entries{$_}}\n" for sort { $a <=> $b } keys %entries; __DATA__ 12 filename1 14 filename2 14 filename3 11 filename4 14 filename5
Obviously this isn't a cut-n-paste solution, but it's the start of an example of a Perlish solution.
Sometimes it's all about finding the right data structure.
You may need to learn a little Perl to get it all implemented though.
Dave
|
|---|