HTTP 파일업로드(Perl)
programming/perl 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번 포트를 열어주어야 패킷이 나간다.
'programming > perl' 카테고리의 다른 글
| 외부파일실행예제 (0) | 2010.04.28 |
|---|---|
| 웹페이지 긁어오기 예제 (0) | 2010.04.09 |
| web login dictionary attack (0) | 2009.12.03 |
| HTTP요청 스크립트(ActivePerl) form-data (0) | 2009.11.19 |
| apache log shooter(GET) (0) | 2009.10.11 |