On Thu, 8 Nov 2001, Tyler Cruickshank wrote:
> I would like to create a hash based on data contained in a file. Can
> I not use a variable as both the key and the value as shown below?
> When I print as shown I do not get a value however if I write the key
> as: alta_guard => $names[1] then I get the correct value printed out.
>
> open(NAMES, "d://perl/avalanche/names.txt") || die "Cant open names.txt\n";
>
> while(<NAMES>){
> chomp;
> @names = split(/-/);
>
> %stations = ( $names[0] => $names[1] );
> @names = ();
>
> } # End while.
>
> $table = 'alta_guard';
> print "Text: $stations{$table}\n";
I would do it like this:
%stations = ();
open(NAMES, "d://perl/avalanche/names.txt") || die "Cant open names.txt\n";
while(<NAMES>){
chomp;
@names = split(/-/);
$stations{$names[0]} = $names[1];
} # End while.
$table = 'alta_guard';
print "Text: $stations{$table}\n";
-- Brett
http://www.chapelperilous.net/
------------------------------------------------------------------------
To give happiness is to deserve happiness.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
