- 50 名前：nobodyさん [2011/09/20(火) 00:24:28.62 ID:VRYqCB7t]
- 全部は入らないので関わってると思うところだけ抜きました。
use LWP::UserAgent;
use HTTP::Request::Common;
$url = "hidar.2ch.net/news4vip/subject.txt";
$durl = "hidari.2ch.net/news4vip/dat/";
&getData($url);
$threadlist = $response->content;
while($threadlist =~ m|\n(.*?)\.dat<>|g){
push(@dat, $1);
}
for ($i=0; $i<=$#dat; $i++){
$url = $durl . $dat[i] . ".dat";
&getData($url);
$content .= $response->content . "\n";
}
print $content;
sub getData
{
$ua = LWP::UserAgent->new;
$ua->agent('');
$request = GET($_[0]);
$response = $ua->request($request);
}
|
 |
