2ch特化型サーバ・ロケーション構築作戦 Part55

このエントリーをはてなブックマークに追加
699ちきちーた ★
困っています、誰か教えてください

http://yutori.2ch.net/morningcoffee/ を取得しようと以下のようにやったら
見事取れないんですよね、 index.htmlを指定しても同じ、SETTING.TXTRとかは取れたのに

getFile("http://yutori.2ch.net/morningcoffee/","$sPath/index.html");

sub getFile
{
my ($url,$target) = @_ ;
print "getFile($url,$target)" ;

my $path = "" ;
my $ua = LWP::UserAgent->new();
$ua->agent('Mozilla/5.0 FOX(2ch.se)');
$ua->timeout(5);
my $request = HTTP::Request->new('GET', $url);
my $response = $ua->request($request) ;#ここで GET 処理
my $db_content = $response->content();

# エラーチェック
if ($response->is_error)
{
print "error $db_content\n" ;
return 0;
}

if(!open(DST,"> $target")) {return 0;}
print DST $db_content ;
close(DST) ;

my $lll = length($db_content) ;
print " = $lll bytes<br>\n" ;
return 1;
}