VPF::вызвать скрипт и передать ему параметры

bars80080

Дата 3.9.2008, 12:17 (ссылка)

(нет голосов)

Загрузка ...

прапор творюет

Награды: 1

Профиль
Группа: Завсегдатай
Сообщений: 12022
Регистрация: 5.12.2007
Где: Königsberg

Репутация: нет
Всего: 315

Добрый день

*ничего не знаю про perl

есть у меня perl скрипт, производящий определённую обработку данных, дальше мне надо перебросить данные в php-скрипт

если бы я это делал на пхп, то выполнил примерно так:

Код

$fp = fopen('http://server.ru/srcipt.php?'.$my_data, 'r');
$fr = fread($fp, 4096);

т.е. открыл бы скрипт с get-параметрами, а пхп-скрипт вернул бы '1' в качестве успешности запроса

вот как такое же сделать на perl?
или иной способ

bars80080

Дата 3.9.2008, 13:18 (ссылка)

(нет голосов)

Загрузка ...

прапор творюет

Награды: 1

Профиль
Группа: Завсегдатай
Сообщений: 12022
Регистрация: 5.12.2007
Где: Königsberg

Репутация: нет
Всего: 315

всё, нашёл:

Код


    my $url = 'http://server.ru/srcipt.php?'.$my_data;
    use LWP::Simple;
    my $content = get $url;
    die "Couldn't get $url" unless defined $content;

дальше такой вопрос:

есть аналог функции urlencode(); перекодировать данные в url, чтоб $my_data нормально прошла ?

Добавлено через 12 минут и 52 секунды
или он автоматом кодирует?

GreenFactory

Дата 3.9.2008, 19:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 20.8.2008

Репутация: нет
Всего: нет

Цитата(bars80080 @ 3.9.2008, 13:18)

есть аналог функции urlencode(); перекодировать данные в url, чтоб $my_data нормально прошла ?

Добавлено @ 13:31
или он автоматом кодирует?

Может стоит обратить внимание на LWP::UserAgent
он посложнее, но там сильно расширен функционал
$ua->get( $url , field_name1 => value1, field_name2 => value2, ... );

bars80080

Дата 3.9.2008, 20:11 (ссылка)

(нет голосов)

Загрузка ...

прапор творюет

Награды: 1

Профиль
Группа: Завсегдатай
Сообщений: 12022
Регистрация: 5.12.2007
Где: Königsberg

Репутация: нет
Всего: 315

да оно похоже само перекодируется, пока нормально проходит

а с этим попробую завтра

спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »