Http upload на perl
Нужно залить файл(находящийся у меня на компе) на сервер через perl скрипт
Почитаи инфу в инете получился вот такой скрипт:
Код:
#!/usr/bin/perl
use Net::HTTP;
use IO;
use MIME::Base64;
$gbfile = "C:\file.jpg";
open (GBFILE, "<"."$gbfile");
@gb =<GBFILE>;
my $s = Net::HTTP->new(Host => "127.0.0.1") || die $@;
$s->write_request(POST => "/eph/upload.php",
'User-Agent' => "Mozilla/5.0",
'Accept' => "application/x-shockwave-flash,text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,image/jpeg,image/gif;q=0.2,*/*;q=0.1",
'Accept-Language' => "ru-ru,ru;q=0.5",
'Accept-Encoding' => "gzip,deflate",
'Accept-Charset' => "windows-1251,utf-8;q=0.7,*;q=0.7",
'Keep-Alive' => "300",
'Connection' => "keep-alive",
'Cookie' => "",
'Content-Type' => "multipart/form-data; boundary=---------------------------154328737501",
"-----------------------------154328737501\r\n".
'Content-Disposition: form-data; name="fileupload"; filename="'."$gbfile".'"'."\r\n".
"Content-Type: application/octet-stream\r\n\r\n".
"@gb\r\n".
"-----------------------------154328737501\r\n".
'Content-Disposition: form-data; name="post"'."\r\n\r\n".
"Send\r\n".
"-----------------------------154328737501--\r\n" );
exit;
Но скрипт файлы не заливает на сервер.
Помогите пожалуйста привести скрипт в работоспособное состояние. |
