hash problem

[Monkey Man]

somebody help me with this

#!/usr/bin/perl -w

%name = ( "ziya" => "aktas", "kimberly" => "aktas", "azer" => "apaydin" );

print "Enter Something: ";
my ($key) = <STDIN>;
print $name{ $key };



it just doesn't work

 

[Brian Wakem]

somebody help me with this

#!/usr/bin/perl -w

%name = ( "ziya" => "aktas", "kimberly" => "aktas", "azer" => "apaydin" );

print "Enter Something: ";
my ($key) = <STDIN>;
print $name{ $key };



it just doesn't work

$key has a \n on the end. You need to chomp $key before printing.

chomp $key;

 

[Gunnar Hjalmarsson]

somebody help me with this

#!/usr/bin/perl -w

%name = ( "ziya" => "aktas", "kimberly" => "aktas", "azer" => "apaydin" );

print "Enter Something: ";
my ($key) = <STDIN>;

-----^----^

Why did you add those parentheses, compared to the (almost) identical
question you asked 16 minutes before you posted this "hash problem"
question? Anyway, you'd better study this section in the FAQ:

http://www.perldoc.com/perl5.8.0/pod/perlfaq7.html#Why-doesn't--my($foo)-=-<FILE>---work-right-

print $name{ $key };

Just combine the FAQ answer with the answers posted by Ben and Brian.

 

[Web Surfer]

[This followup was posted to comp.lang.perl.misc]

somebody help me with this

#!/usr/bin/perl -w

%name = ( "ziya" => "aktas", "kimberly" => "aktas", "azer" => "apaydin" );

print "Enter Something: ";
my ($key) = <STDIN>;

chomp $key; # remove the trailing newline character