我需要使用LWP向超文本传输协议服务器发送请求。例如,我有一个包含数据的文件,我必须向服务器foobar.baz发送请求。
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("$0/0.1 " . $ua->agent);
$ua->agent("Mozilla/8.0")
$req = HTTP::Request->new(GET => 'http://www.foobar.baz');
$req->header('Accept' => 'text/html');
$res = $ua->request($req);如何在中使用file.txt
$req = HTTP::Request->new(GET => 'http://www.foobar.baz')对于每个请求?
例如,file.txt包含
aaaa
bbbb
cccc
dddd
eeee我需要发送一个请求到
aaaa.foobar.baz
bbbb.foobar.baz
cccc.foobar.baz诸若此类。
我该怎么做呢?
https://stackoverflow.com/questions/50847574
复制相似问题