|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alex Radich 2:5020/400 15 Jul 2003 12:42:40 To : All Subject : my & hash --------------------------------------------------------------------------------
Hi All,
Подскажите, Pls, что ему сделать, как описать хэш и ключи чтобы не ругался:
-----------
#!C:/Perl/bin/perl -w
use strict;
my%age=("Nat",24,
"Jules",0,
"Josh",undef);
while (($key,$value)=each(%age)) {
print "$key is age - \t$value\n"
}
print "\n";
foreach my$thing ("Nat","Jules","Josh","Jason") {
print "$thing: \t";
print "Exist " if exists $age{$thing};
print "Defined " if defined $age{$thing};
print "True " if $age{$thing};;
print "\n";
}
-----------
Global symbol "$key" requires explicit package name at Untitled line 9.
Global symbol "$value" requires explicit package name at Untitled line 9.
Best regards,
Alex
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/166798dce7ee9.html, оценка из 5, голосов 10
|