31.07.2007, 13:33
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
1095
|
|
vladest,
сейчас вот случайно наткнулся на один модуль, который будет удобно использовать для решения вашей проблемы:
Tie::IxHash называется.. (http://search.cpan.org/src/GSAR/Tie-IxHash-1.21/lib/Tie/IxHash.pm)
Код:
use Tie::IxHash;
tie my %hash, 'Tie::IxHash';
%hash =('1'=>'1',
'2'=>'2',
'3'=>'3');
while ( ($k, $v) = each(%hash) ){
print "$k = $v \n";
}
выводит в заданном порядке..
|
|
|