On Fri, 24 Jan 2003, david wrote:
> Glenn Tremblay wrote:
>
> >
> > This is what I need to do:
> > I believe I need a hash of hashes of arrays...
> > I am creating output in the format of inspection pages which list all
> > inspection stations in each town (some towns have only one, others have
> > several).
> > I need to group the lines (of address information) by city and get a count
> > of the number of stations in a given city.
> >
>
> if you really just want to group by city, you don't need that nested
> structure. i am sure you really mean group by state and city right?
Actually, the funny part of all this is that every station will be in the
same state. I need to include the state information regardless.
The output needs to allow me to loop through each city, somehow, and print
out the address data for each station in that city.
>
> #!/usr/bin/perl -w
> use strict;
>
> my %hash;
>
> push(@{$hash{(split(/,/))[3,4]}},$_) while(<DATA>);
>
> for(keys %hash){
> print "$_ has ",scalar @{$hash{$_}}," stations and they are:\n";
> print join('',@{$hash{$_}});
> }
>
> __DATA__
> Cat,1234 main, street,sf,ca,94124,123-4567
> Dog,3456 main, street,sf,ca,94131,999-1234
> Fish,9123 main, road,oa,wa,97541,431-4312
> Bird,3456 main, street,sf,wa,94131,999-1234
>
> prints:
>
> ca has 2 stations and they are:
> Cat,1234 main, street,sf,ca,94124,123-4567
> Dog,3456 main, street,sf,ca,94131,999-1234
> wa has 2 stations and they are:
> Fish,9123 main, road,oa,wa,97541,431-4312
> Bird,3456 main, street,sf,wa,94131,999-1234
>
> david
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
