I'm missing something!!!

[Jeff]

The script:

#!/usr/bin/perl -w
use strict;

my %hash = (
'grid' => 1,
'grab' => 2,
'grub' => 3,
);

foreach my $key (sort keys %hash){
print $key " => ". $hash{$key} . "\n";
}


the result:
Can't use string ("grab") as a symbol ref while "strict refs" in use at
papa line 11.

without strict, I get this result:
print() on unopened filehandle grab at papa line 11.
print() on unopened filehandle grid at papa line 11.
print() on unopened filehandle grub at papa line 11.

Any thoughts?

Jeff

 

[Brian Wakem]

The script:

#!/usr/bin/perl -w
use strict;

my %hash = (
'grid' => 1,
'grab' => 2,
'grub' => 3,
);

foreach my $key (sort keys %hash){
print $key " => ". $hash{$key} . "\n";

^^ Missing .

 

[Xicheng]

The script:

#!/usr/bin/perl -w
use strict;

my %hash = (
'grid' => 1,
'grab' => 2,
'grub' => 3,
);

foreach my $key (sort keys %hash){
print $key " => ". $hash{$key} . "\n";

perl treats this barebone variable "$key" as filehandle reference...
add a comma after $key...

Xicheng

 

[Jeff]

Brian and Xicheng:

Thanks, you guys are great. I've been staring at code for too many
continuous hours...

Jeff

 

[Jeff Stampes]

print $key " => ". $hash{$key} . "\n";

Other people have identified your problem for you.

If you don't have the background in other programming languages (like me!), it's hard to
remember printf() sometimes...but your print above would become:

printf "%s => %s\n", $key, $hash{ $key };

You could even use each() in your look instead, and have:

while ( my ($key, $value) = each %hash ) {
printf "%s => %s\n", $key, $value;
}

Which I find more readable (despite the fact I never think to write it that way!)

Just showing MOTOWTDI

~Jeff