PerlでLWPを使って仮想ブラウザを作る

perlとLWPがインストールされている状態にて。

perl -MLWP -le "print(LWP->VERSION)"

→ 6.13 (例)

.pl のソースを下記のように実装する。

use LWP 6.13;
my $browser = LWP::UserAgent->new;
my $url = "http://www.yahoo.co.jp";
my $response = $browser->get( $url );
print $response->decoded_content;

.pl を実行すると、Yahoo!のソースコードが標準出力される。