綾小路龍之介の素人思考

[perl] LWP::UserAgent でUserAgentを換えるにはagentメソッド

perlモジュールLWP::UserAgentでuaオブジェクトを作ったら、agentメソッドでUAを変更できる。

UserAgentを偽らないとマトモな結果を返さないページがある。UserAgentをみて返す内容を変えるページがある。そんなときにはUserAgentを換えるしかない。以下のようにすると、以降$uaオブジェクトを使ってアクセスする場合にはhogeがUserAgentとして使われる。

#!/usr/bin/perl
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent('hoge');

若しくはnewするときの引数に指定。

#!/usr/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new(agent => "hoge");

リファレンス

  1. LWP::UserAgent - Webデータの取得
  2. LWP::UserAgent - Google 検索
  3. Geekなぺーじ : HTTP_USER_AGENTを変更したHTTPクライアント(LWP::UserAgent)
  4. LWP::UserAgent agent - Google 検索

ソーシャルブックマーク

  1. はてなブックマーク
  2. Google Bookmarks
  3. del.icio.us

ChangeLog

  1. Posted: 2009-06-08T17:27:58+09:00
  2. Modified: 2009-06-08T17:27:58+09:00
  3. Generated: 2017-07-13T23:09:41+09:00