リンク解析は m#://# and $see{$_} foreach @{[$parser->links]} にすべきだ とか # HTML からリンク抜き出し my $parser = HTML::LinkExtor->new(undef,$base); $parser->parse($content); foreach(@{$parser->links}) { m#://# or next; my $url = &func_u…

dunno => さぁー?('A`)