peace under the tree wrote:
> hi, everyone
>
> I code this program but It don' t run, I don't know what the problem
> with it, Can anyone help? Thank you!
>
Try (note the quoted numbers in hash keys) :
use strict;
print "Enter id: ";
chomp (my $id=<STDIN>);
my @res = match ($id);
print "@res\n";
sub match {
my $matchID = shift;
my @localID = qw/0001 0003 0002 0004 00056/;
my %person = (
name => {
'0001' => 'chao sophal',
'0003' => 'lee lyekuan',
'0002' => 'theavylong',
'0004' => 'surgrapany',
'00056' => 'SZE PENG'
},
age => {
'0001' => '22',
'0003' => '20',
'0002' => '22',
'0004' => '24',
'00056' => '26'
},
school => {
'0001' => 'Unversity Science Malaysia',
'0003' => 'Northing University',
'0002' => 'Stamford College',
'0004' => 'Summani Informaiton Technology, India',
'00056' => 'Norting University'
},
);
foreach (@localID) {
if ($matchID eq $_) {
return ($person{name}->{$matchID}, $person{age}->{$matchID},
$person{school}->{$matchID});
}
}
return "No such Id in database";
}
__END__
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
