Perl multipart problem (:

Насколько я понял, ты хочешь передать параметры формы скрипту на удалённом сервере? Если так, то ответ HTTP/1.1 200 OK вполне адекватен.

Или распиши задачу, что конкретно требуется?

1)Запрос то верно составлен? 2)Тут в личку нельзя писать что ли?

Тут в личку нельзя писать что ли?

здесь ее нет

302
The HTTP/1.0 specification (RFC 1945) required the client to perform a temporary redirect (the original describing phrase was «Moved Temporarily»)

разве 302 не означает редирект? а 200 означает, что урл найдет, запрос передан.

Content => [
'id'               => "a812a878",
'DO'               => '1',
'A'                => '0',
'B'                => '0',]

Я, возможно, подзабыл perl, но, ЕМНИП квадратные скобки - это ссылка на анонимный массив, тебе же нужен анонимный хэш, то есть {}.

Судя по коду, человек совсем с перлом не знаком. Литералы путает, беспорядочные и нелогичные вызовы методов, явные синтаксические ошибки. В общем мы ему не сможем помочь.

DELIRIUM можно и { и [ outtaspace где я литералы путаю ? ._o Единственное где ошибся это в начале, нужно было

$req=$ua->get('http://site/script')->content;

Так ты может все-таки скажешь: чем тебя ответ 200 Ok не устраивает, зачем тебе редирект?

Извиняюсь, да нужен 200 ОК, но должно выполнятся действие после отправки данного кода, а оно не выполняется..всё что передаётся, я выложил в первой ссылке..

Так может дело в скрипте на стороне сервера? Что он ожидает получить?

Давайте начнем с простого: в оригинале и на пасте появится одинаковая версия кода.

можно и { и [

Ты же понимаешь, что ты написал херню, да?

#!/usr/bin/env perl
use strict;
use warnings;

sub func {
    my $ref = shift;
    foreach(keys %{$ref}) {
        print "$_\n";
    }
}

my $arr = [
    'aa' => 'bb',
    'cc' => 'dd',
    ];

func($arr);

$ perl test.pl 
Not a HASH reference at test.pl line 7.

Неужели задача не ясна? всё повторяется опять...

Никто не понимает что я прошу?

DELIRIUM

my $ENTER=$ua->post('http://site.ru/login',
[
'redirect'        => '',
'login'           => '',
'pass'            => '',
'submit_login'    => '',
]); 

В таких конструкциях оба варианта работают..

А, да, посмотрел perldoc по HTTP::Request::Common, там можно. Тогда сорри =)

Ребят последний рывок)

http://pastebin.com/ckEwbxzU

Появилась небольшая новая задача, описал в конце.

1.

-----------------------------98942870323811

Это — boundary. Задается в поле Content-type заголовка. Может быть любым. 2. Я не уверен, что твой принимающий запрос скрип правильно работает с multipart/form-data

POSTDATA =-----------------------------98942870323811

Что это за фигня? 3. Приведи полностью запросы и ответы, включая заголовки.

POSTDATA =-----------------------------98942870323811

В таком виде запросы снифер отображает в фаирфоксе (TamperData).

Я дописал уже, все работает.

Не выкладывал исходники свои полноценные, по личным причинам)