綾小路龍之介の素人思考

[perl] LWP::UserAgent モジュールでuseragentを変える場合の雛形

lwpでuseragentを変える際に、よくわからなくなることがあるので。何らかの方法でuaオブジェクトを指定を変えることが出来るlwp派生モジュールのuseragent変更はこれ1つ知っているだけで全部対応可能。

まずはnewするまで。これだと、useragentはlibwww-perlになる。

#!/usr/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

useragentを変える場合は、newのagentオプションで指定する場合と、agentセッターで変える場合がある。まずはnewのagentオプションで指定する場合。

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

agentセッターで変える場合。状況によると思うけど、私の場合はセッターで変えることが多い気がする。

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

リファレンス

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

ソーシャルブックマーク

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

ChangeLog

  1. Posted: 2009-08-02T08:46:08+09:00
  2. Modified: 2009-08-02T08:46:08+09:00
  3. Generated: 2017-10-25T23:09:16+09:00