From: Pete Emerson <[EMAIL PROTECTED]>
> push @{$hash{$city}{$station}}, $add1;
> push @{$hash{$city}{$station}}, $add2;
> push @{$hash{$city}{$station}}, $state;
> push @{$hash{$city}{$station}}, $zip;
> push @{$hash{$city}{$station}}, $phone;
You can push several items into an array at once:
push @{$hash{$city}{$station}}, $add1, $add2, $state, $zip, $phone;
In this case it's actually not necessary to use push() at all:
my ($station, $add1, $add2, $city, $state, $zip, $phone)=split(/,/,
$line);
$hash{$city}{$station} = [$add1, $add2, $city, $state, $zip, $phone];
or
my ($station, @data)=split(/,/, $line);
$hash{$city}{$station} = \@data;
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
