Здравствуйте.
Подскажите, пожалуйста, по поводу encode().
Дело в том, что у меня скрипт на perl. В доках к нему написано, что для работы требуется:
"- perl 5.8.x (т.к. используется функция encode() )
- модуль URI (для проверки правильности url)
- модуль XML::DOM (для разбора на ноды)
- модуль DBI (для работы с базой данных)"
Все эти модули есть, а вот perl 5.6.1 и функции encode() там нет. Добиться от хостера установки perl 5.8.x вряд ли возможно, поэтому возник вопрос - а можно ли реализовать эту функцию как-то иначе?
Или может легче будет переписать скрипт на php (правда, я не знаю, возможно ли вообще на php реализовать функцию encode(), т.к. понятия не имею, что это за функция :) ) ?
Конкретно в скрипте поискал слово encode и нашел вот это:
if ($node and $node->getNodeType == TEXT_NODE) {
$$item{DATA} = encode(\'cp1251\', $node->getData());
print STDERR "$$item{DATA}...\\t" if ($tag_name eq \'title\');
}
и вот это:
if ($dbh->do(\'INSERT INTO pm_genre (code, name) VALUES (?, ?)\', undef,
$name, encode(\'cp1251\', $node->getData()))) {
$genres{$name} = $dbh->selectrow_array(\'SELECT last_insert_id()\');
$dbh->commit();
}
Очень надеюсь, что поможете. Спасибо за внимание :)