|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 12 Apr 2001 18:49:56
To : Andrey N. Demushkin
Subject : Re: lwp & post & files
--------------------------------------------------------------------------------
#!/usr/bin/perl -wcT
use fido7.ru.perl qw(FAQ);
use HTTP::Request::Common;
use LWP::UserAgent;
use CGI qw(header -no_debug);
my $URL = 'http://localhost/cgi-bin/survey.cgi';
my $req = POST $URL,
Content_Type => 'form-data',
Content =>
name => 'Paul Kulchenko',
email => 'paulclinger@yahoo.com',
surveyfile => ['./survey.dat'], # this file will be uploaded
];
my $res = LWP::UserAgent->new->request($req);
print header, $res->is_success ? $res->content : $res->status_line;
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
