Perlコーディング初心者質問スレ Part 57at PHPPerlコーディング初心者質問スレ Part 57 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト31:25 08/02/28 17:24:53 >>29 サンクス。解決したよ 32:nobodyさん 08/02/28 21:20:30 LWP::UserAgentについて質問があります。 下ページを取得しようとすると、CPU使用率が100%になったままで 応答がなくなり？ます。ページも取得できません。 こんな場合、途中で諦めたいのですが、タイムアウトを設定しても変化なし。 どうすれば良いかアドバイスお願いします。 #!/usr/bin/perl use strict; use LWP::UserAgent; my $url = 'http://www.mother-house.jp/ceo/2006/10/post.html'; print "$url\n"; my $ua = LWP::UserAgent->new; $ua->timeout(30); my $request = HTTP::Request->new(GET => $url); $request->header('Pragma' => 'no-cache'); my $response = $ua->request($request); if ($response->is_success) { print $response->content; } else { print "(´･ω･｀)ｼｮﾎﾞｰﾝ\n"; } exit; 33:nobodyさん 08/02/28 22:07:20 そのページ3G近くあんじゃんｗブラウザで開いて焦ったｗ たぶんメモリが足りないだけなんじゃないかな $ua->max_sizeで上限決めたりヘッダにrange付けて小分けにリクエスト投げるといい 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch