KateKonysheva

http://search.cpan.org/

demo.pciscan.oint.ru

print "@{[%hash]}\n";
print map {"$_ => $hash{$_}\n"} keys %hash;
while (@Res = each %hash){

print "$Res[0] = $Res[1]\n"

}

>Как сохранить в качестве ключей хэша ссылки, чтоб можно было корректно разыменовать?

>Нужно создать специальный хэш, ключами которого являются ссылки, преобразованные в строки, и значениями – настоящие ссылки.

>Можно воспользоваться модулем Tie::RefHash. Пример показывает использование объектов ввода/вывода для работы с файловыми манипуляторами.

use Tie::RefHash;
use IO::File;

tie %name, "Tie::RefHash";
foreach $filename(«/etc/termcamp/», «/vminux», «/bin/cat»){

$fh = IO::File->("<$filename") or next;
$name{$fh} = $filename;

}
print “open files: ", join(", values %name”, "\n”);
foreach $file(keys %name){

seek($file, 0, 2);
printf("%s is %d bytes long.\n", $name{$file}, $tell{$file});

}

см.

Html To Wiki?

Конвертер doc2Wiki