programming/perl
HTTP요청 스크립트(ActivePerl) form-data
applicationlayer
2009. 11. 19. 11:59
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $req = POST 'http://192.168.1.157',Content_Type => 'form-data',Content => [ search => 'www', errors => 0 ];
$ua->request($req);
o>_<o
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $req = POST 'http://192.168.1.157',Content_Type => 'form-data',Content => [ search => 'www', errors => 0 ];
$ua->request($req);
o>_<o