Пипл, помогите. Не получается. Сейчас объясню что.
Вот часть кода, которая работала.

my $h=new HTTP::Headers;
my $REFERER=$ENV{HTTP_REFERER};
my $UA=$ENV{HTTP_USER_AGENT};
$h->referer($REFERER);
my $ua=new LWP::UserAgent;
$ua->agent($UA);
my $req=HTTP::Request->new('',$URL,$h);
my $resp=$ua->request($req);

if($resp->is_success)
{
my $STR1=$resp->content;

Теперь, я вместо 'GET', подсталяю переменную $METHOD, которая
может принимать значения "GET" or "POST" и у меня перестало работать.
Как это исправить?

Ни строки 'GET', ни пременной $METHOD в твоём коде не обнаружил.

В фразу "у меня перестало работать" наверное можно вложить очень много смысла... вот только
извлечь очень тяжело.

По 500 ошибке стало вылетать что ли?
посмотри что вернет
$resp->status_line
если ок то глянь в
$resp->as_string();

Это сообщение отредактировал(а) dimes - 28.9.2004, 17:14

my $h=new HTTP::Headers;
my $REFERER=$ENV{HTTP_REFERER};
my $UA=$ENV{HTTP_USER_AGENT};
$h->referer($REFERER);
my $ua=new LWP::UserAgent;
$ua->agent($UA);
my $req=HTTP::Request->new('GET',$URL,$h); вот здесь
my $resp=$ua->request($req);

if($resp->is_success)
{
my $STR1=$resp->content;

Перестало работать - стало работать неверно (ответы совсем непонятные стали приходить) Ведь, много нельзя методом Get передавать. Правда?

Это сообщение отредактировал(а) s_a_s_h_a - 30.9.2004, 14:59

Цитата(s_a_s_h_a @ 30.9.2004, 15:57)

много нельзя методом Get передавать. Правда?

Не больше килобайта!

В общем, что делать?
Вот примеры ответов, когда вместо 'GET' стоит переменная, которая принимает значения гет или пост

1) Fatal error: No content-type in POST request in Unknown on line 0

2)GIF89a

‘яяяяяя!щ
,

T
;

и т.п.

Ладно. Поставлю вопрос по другому. Надо "удаленно" заполнить форму,
т.е. по указанному в атрибуте action тега form адресу послать пары name_field=value_field.
Как это сделать с помощью модуля LWP. Мануалы читал (на search.cpan.org в том числе),
поэтому просьба помочь конкретной частью кода, а не посылать меня на англицкие сайты
да еще с непонятными экзамплами.

Код

use HTTP::Request::Common qw(POST); use LWP::UserAgent; $ua = LWP::UserAgent->new; my $req = POST $url,  [ text => "$text",    login => "$login",    passwd => "$passwd"  ];

А если гет, то заменить пост на гет?

что значит а если гет ... вы что заполненую форму гетом отправляете ?

Иногда в некоторых формах (не у меня) стоит гет.

Код

$req = HTTP::Request->new(GET => 'ftp://me:[email protected]/');  $req->header(Accept => "text/html, */*;q=0.1");

ElectricalStorm

Я немножко модифицировал ваш код и он не работает, подскажите, пожалуйста,
где я ступил.

push(@QUERIES,"\"$FIELD_NAMES[$i]\" => \"$value\"");

my $req = POST $URL, @QUERIES;

причем в $value хранится значение в шестнадцатеричном формате.

Добавлено @ 18:01
ElectricalStorm, а куда сам запрос вставлять, когда гет?

вот так попробуйте... я просто протестировать сейчас нсчего не могу так как вебом уже не занимаюсь

Код

use LWP; my $browser; sub do_POST {  # Parameters:  #  the URL,  #  an arrayref or hashref for the key/value pairs,  #  and then, optionally, any header lines: (key,value, key,value)  $browser = LWP::UserAgent->new() unless $browser;  my $resp = $browser->post(@_);  return ($resp->content, $resp->status_line, $resp->is_success, $resp)    if wantarray;  return unless $resp->is_success;  return $resp->content; }

использовать вот так

Код

my ($content, $message, $is_success) = do_POST(    'http://babelfish.altavista.com/translate.dyn',    [ 'urltext' => $text, 'lp' => $language_path, 'enc' => 'utf8' ],  );  die "Error in translation $language_path: $message\n"   unless $is_success;

Это сообщение отредактировал(а) ElectricalStorm - 30.9.2004, 18:42