1. GET ,获取网页内容,3句话,很简单吧! #!perl -w use strict; use LWP; my $browser = LWP::UserAgent->new(); my $response= $browser->get("http://www.toolmao.com"); print $response->content; # 输出获得的网页内容 2. POST,发送数据 #!perl -w use strict; use LWP; my $browser = LWP::UserAgent->new(); my $response= $browser->post("http://www.toolmao.com", [ "test" => 123 , "data" => "gainover"]); #多加了一个被发送的数据的数组 print $response->content; # 输出获得的网页内容 3. multipart/form-data 类型的,一般上传文件的时候会用到 #!perl -w use strict; use LWP; my $browser = LWP::UserAgent->new(); my $response = $browser->post( 'http://www.toolmao.com', [ 'subject' => 'test for toolmao.com', 'uploadfile' => ["./file/工具猫.txt"], #这里是被上传的文件路径 'user' => 'Adm. Kang', ], 'Content_Type' => 'form-data' #这句不可少,表示类型为 multipart/form-data ); print $response->content; # 输出返回的网页内容 更多的用法,例如设置User-Agent, cookies等,可以查看perl手册里关于lwp的用法部分!