|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Konstantin Dolgan 2:5020/400 25 Dec 2002 15:52:12
To : All
Subject : HTTP::Request::Common - upload
--------------------------------------------------------------------------------
В упор не хочет аплоадиться файл через LWP.
Дошло до того, что содрал дословно пример из Штайна
====================
use LWP;
use HTTP::Request::Common;
use constant WC_SCRIPT =>
'http://stein.cshl.org/WWW/software/CGI/examples/file_upload.cgi';
my $file = shift or die "Usage: remote_wc.pl FILE\n";
my $ua = LWP::UserAgent->new;
my $newagent = 'remote_wc/1.0 ('.$ua->agent.')';
$ua->agent($newagent);
my $request = POST (WC_SCRIPT,
Content_Type => 'form-data',
Content =>[
count => 'count lines',
count => 'count words',
count => 'count characters',
'.cgifields'=> 'count',
submit => 'Process File',
filename => '[$file]',
]
);
my $response = $ua->request($request);
die $response->message unless $response->is_success;
my $content = $response->content;
my ($lines,$words,$characters) = $content =~
/Lines:.+?(\d+).+?Words:.+?(\d+)+?Characters:.+?(\d+)/;
print "Lines=$lines, Words=$words, Chars=$characters\n";
============================
Все остальные с POST-ом (без 'form-data' и 'file') работают нормально, а
этот выдает, как будто файла и не было.
Perl-5.005_03, p5-libwww-5.65, FreeBSD-4.7
Где я неправ?
Спасибо. Константин
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
