リスト1■Webを巡回する例 use strict; use utf8; use encoding 'utf8', STDIN=>'utf8', STDOUT=>'utf8'; use Encode::Guess; use Encode; use WWW::Mechanize; use HTTP::Response::Encoding; my $url = 'http://blogs.itmedia.co.jp/'; my $mech = WWW::Mechanize->new(); $mech->get($url); # 追うリンク階層数 my $linknum = 2; use vars qw(%followed_link); %followed_link = {}; # すでに辿ったかどうかのフラグ getcontent($mech, $linknum); exit(); sub g