MyWackoSite : KateKonysheva

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

MyWackoSite: KateKonysheva