sub href2utf8 {
my ($hr, $e) = @_ ;
my $i ;
foreach $i (keys %$hr)
{ %hr->{$i} = to_utf8({ - string => $hr->{$i}, -charset => $e}); }
return $hr;
}
Perl - разборка исходника - %$hr - такое может быть? Что это?
Есть код:
Нужно понять как работает это подпрограмма. Дальше идет моя логика, такая, какая есть, потому что я изучаю перл только 2 день, заранее простите.
По идее название подпрограммы говорит о том, что она ссылку переводит в формат юникода. (не уверен, не знаю что такое href)
@_ - специальный массив параметров для подпрограмм. Пытался его распечатать в главной программе - он был пустым. Видимо он заполнится тем, что я передам в качестве параметров подпрограмме. Не моделировал эту ситуаци, мало уверен ;)
Для каждого i, который является очередным элементов списка.. который составит функция keys (а она составит список ключей хеша)..(вот тут мне интересно, почему так странно записан хэш - hr, так можно вообще?
Вообщем, для каждого ключа этого хеша, само значение ключо будет равняться функции to_utf8.. параметром которой является хренотень непонятная ))))
И вот тут... я понимаю, что мне нужно понять строчку -
Unicode::MapUTF8 qw /to_utf8 from_utf8/
Пока пойду к яндексу.
Спасибо за помощь, если она буит.. ))))
Код:
Нужно понять как работает это подпрограмма. Дальше идет моя логика, такая, какая есть, потому что я изучаю перл только 2 день, заранее простите.
По идее название подпрограммы говорит о том, что она ссылку переводит в формат юникода. (не уверен, не знаю что такое href)
@_ - специальный массив параметров для подпрограмм. Пытался его распечатать в главной программе - он был пустым. Видимо он заполнится тем, что я передам в качестве параметров подпрограмме. Не моделировал эту ситуаци, мало уверен ;)
Для каждого i, который является очередным элементов списка.. который составит функция keys (а она составит список ключей хеша)..(вот тут мне интересно, почему так странно записан хэш - hr, так можно вообще?
Вообщем, для каждого ключа этого хеша, само значение ключо будет равняться функции to_utf8.. параметром которой является хренотень непонятная ))))
И вот тут... я понимаю, что мне нужно понять строчку -
Unicode::MapUTF8 qw /to_utf8 from_utf8/
Пока пойду к яндексу.
Спасибо за помощь, если она буит.. ))))