Сообщения

1

Perl / Можно ли как-то реализовать на perl 5.6.1 функцию encode() (которая в perl 5.8.x)?

« : 07 Декабря 2004, 02:09:36 »

Спасибо за советы - с encode разобрался. Но потом возникла другая проблема, а потом еще одна и еще... Короче, видимо этот скрипт легче заново написать, чем заниматься его исправлением
Правда, мой программист знает только php и в связи с этим возникло предложение - может быть кто-то посмотрит этот скрипт и напишет его описание (разумеется не бесплатно , чтобы потом мой программист на основе этого описания смог создать такой же скрипт на php? Топик с этим предложением я создал в соответствующем разделе форума: http://forums.webscript.ru/showthread.php?s=&threadid=18767&msgnum=0

2

Поиск, изготовление скриптов и прочее... / Нужно посмотреть perl-скрипт и составить его описание

« : 07 Декабря 2004, 01:56:19 »

Есть скрипт на perl, который никак не хочет работать. По описанию он должен взять данные из xml файла и записать все это в базу mysql. При этом у меня уже есть аналогичный скрипт на php и программист, который сможет переделать этот php-скрипт под новые условия. Но проблема в том, что у меня нет полного описания perl-скрипта, т.е. что и куда он записывает, а также что еще он делает я не знаю. Поэтому появилась следующая идея - программист знающий perl проанализирует этот скрипт, посмотрит что он делает и составит описание скрипта, чтобы потом мой программист на основе этого описания смог создать такой же скрипт на php (или переделать уже существующий аналогичный скрипт).

Кто готов взяться - напишите здесь стоимость работы, сроки и email для связи.

3

Perl / Можно ли как-то реализовать на perl 5.6.1 функцию encode() (которая в perl 5.8.x)?

« : 03 Декабря 2004, 18:21:01 »

Здравствуйте.
Подскажите, пожалуйста, по поводу 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();
                        }                        
Очень надеюсь, что поможете. Спасибо за внимание :)