|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alex Radich 2:5020/400 15 Jan 2003 16:56:40
To : All
Subject : hash hashes ???
--------------------------------------------------------------------------------
Hi All, (ssory, но впервый раз не отправилось)
Подскажите, pls, что я делаю не так? Как правильно заполнять сабж?
#!C:/Perl/bin/perl
$rec{ID}="01003";
$rec{STOREHOUSE}{WAREHOUSE}=1;
%{$byid{$rec{ID}}}=%rec;
print "$byid{$rec{ID}}->{ID}\n";
print "$byid{'01003'}{STOREHOUSE}{WAREHOUSE}\n\n";
$rec{ID}="01009";
$rec{STOREHOUSE}{WAREHOUSE}=11;
%{$byid{$rec{ID}}}=%rec;
print "$byid{'01009'}->{ID}\n";
print "$byid{'01009'}->{STOREHOUSE}{WAREHOUSE}\n\n";
print "$byid{'01003'}->{ID}\n";
print "$byid{'01003'}->{STOREHOUSE}{WAREHOUSE}\n\n";
Всем By!
Alex
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
