programming/perl
HTTP 파일업로드(Perl)
applicationlayer
2009. 12. 30. 09:27
파일 업로드시 패킷을 뜨기 위해서 간단한 스크립트를 이용할 수 있다.
use HTTP::Request::Common;
use LWP::UserAgent;
$ua = LWP::UserAgent->new;LWP::UserAgent->new;
my $req = POST 'http://[서버주소]',Content_Type => 'form-data',Content => [ info_file => ["파일명"] ];
$ua->request($req);
3 way handshaking을 맺어야하므로 서버측에 80번 포트를 열어주어야 패킷이 나간다.
use HTTP::Request::Common;
use LWP::UserAgent;
$ua = LWP::UserAgent->new;LWP::UserAgent->new;
my $req = POST 'http://[서버주소]',Content_Type => 'form-data',Content => [ info_file => ["파일명"] ];
$ua->request($req);
3 way handshaking을 맺어야하므로 서버측에 80번 포트를 열어주어야 패킷이 나간다.