Error: Use of uninitialized value in print

[sabie]

Hi,

I just cant find wats wrong in this tiny piece of code.

All I want to fetch the number associated with a key in the hash. The key has to be entered my user during execution. Here is the code:

#!usr/bin/perl
#chap3ex3.pl
use warnings;
use strict;
 
my %tele_directory = ("Mine" => "1911", "Moms" => "1911", "Dads" => "1913", "Siss" => "1914");
print "Enter a name: ";
my $name=<STDIN>;
my $name1="Moms";
#my $temp=$name;
 
print "\$name is $name and the respective number is", $tele_directory{$name}," \n";
 
print "\$name1 is $name1 and the resp entry is $tele_directory{$name1} \n";
 

Here is the error I am getting:

Enter a name: Mine
$name is Mine
Use of uninitialized value in print at C:\Users\user\Documents\Perl_scripts\chap
3ex3.pl line 12, <STDIN> line 1.
 and the respective number is
$name1 is Moms and the resp entry is 1911
Press any key to continue . . .
 

Please help me out.

Thanks.

[sabie]

Again... got it!!
Chomp() did the job.

[numberwhun]

Yes. You have to remember to chomp any input from the user due to the carriage return. Also, unless you are executing this from the root directory, you may want to fix your path to perl in your shebang line as your missing the "/" before 'usr'.

Regards,

Jeff