Perlコーディング初心者質問スレ Part 58

[0005 nobodyさん 2008/08/07(木) 07:15:27 ID:1CE8PFPT]

Webページを取得するため、LWP::UserAgentを使用したのですが、
ある特定のページでは途中で切れてしまいます。

データサイズも大きくないのに、
なぜ途中で止まってしまうのかがわかりません。。

#!/usr/local/bin/perl
use strict;
use warnings;
use LWP::UserAgent;

my $url = 'http://human7.2ch.net/wmotenai/subback.html';
my $browser = LWP::UserAgent->new;
my $resp = $browser->get($url, 'User-Agent' => 'test');

print $resp->content;