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");