Это страница Конышевой Екатерины!
Добро пожаловать!
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});
}
см.
http://valera.asf.ru/perl/cookbook/cont.php?id=69
http://toolserver.org/~diberri/cgi-bin/html2wiki/index.cgi
Конвертер doc2Wiki
http://club.mabila.ua/wiki/%D0%A3%D1%82%D0%B8%D0%BB%D0%B8%D1%82%D1%8B_%D0%B4%D0%BB%D1%8F_%D1%83%D0%BF%D1%80%D0%BE%D1%89%D0%B5%D0%BD%D0%B8%D1%8F_%D1%80%D0%B0%D0%B1%D0%BE%D1%82%D1%8B_%D1%81_%D1%80%D0%B0%D0%B7%D0%BC%D0%B5%D1%82%D0%BA%D0%BE%D0%B9_Wiki
http://www.infpro.com/Word2MediaWiki.aspx
