まずは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");