- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
361 ：デフォルトの名無しさん[sage]：2015/08/24(月) 21:34:27.54 ID:BAr9V/Jb - >>355 >>358
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $res = $ua->get('http://www.google.co.jp/to404.jpg');
SaveAs($res->content, '404file.test');
sub SaveAs {
my $content = shift;
my $filename = shift;
my $fh;
open($fh, '>'.$filename);
binmode($fh);
print $fh $content;
close($fh);
}
試しにこんな風にしたけど404でも問題なくデータは取れてるけども、
取れなかったらAccept-Language、User-Agent、Refererとか、
ブラウザと異なる部分が無いかを確かめるぐらいしかないんじゃないかなあ。
|