in reply to hash values
The HoA thing would be useful if you wanted to keep track of the line numbers where each distinct full-line string appears. The number of occurrences per string is then just the number of elements in the array for that string:
(updated to fix grammar in first paragraph)#!/usr/bin/perl use strict; my %hash; push( @{$hash{$_}}, $. ) while (<>); print "Total\tLocations\tString\n"; # output a header line printf( "%d\t%s\t%s", scalar(@{$hash{$_}}), join(",",@{$hash{$_}}), $_ ) for ( sort keys %hash );
|
|---|