WWW::Mechanizeをつかってムフフ画像ダウンロードするスクリプトWWW::Mechanizeをつかってムフフ画像ダウンロードするスクリプト スポンサードリンク Tweet Iriaさんでもちょっと大変な、規則性のないファイル名が付けられた画像たくさんサイトから画像ダウンロードします。規則性がないので、サムネイルがたくさんあるページから、画像が貼られているページに実際に行って、画像ファイルのリンクを取得して、ダウンロードするタイプです。 WWW::Mechanizeで、find_all_linksを使ったサンプルとして。 #!/usr/bin/perl use strict; use warnings; use WWW::Mechanize; my $mech = WWW::Mechanize->new(); $mech->agent_alias( 'Windows IE 6' ); $mech->get('http://www.example.com/
