http://www.tube8.com/asian/japanese-gal/68290/ http://www.tube8.com/asian/my-lovely-love/41152/ http://tech.bayashi.jp/archives/entry/perl/2009/002465.html tube8_fetcher.pl の文法は以下のようになります。 # perl tube8_fetcher.pl コマンド 検索キーワード コマンドは、search と download があります(それぞれ、s または DL でもOK)。 検索キーワードは半角英数字のみです。空白入れられないので注意してください。 ではまず、検索してみます。 # perl tube8_fetcher.pl search aoi 動画が見つかったら、let's download と言われるので、以下のようにダウンロードします。 # perl tube8_fetcher.pl download aoi そういう場合は、以下のワンライナーをどうぞ。 # perl -MWWW::Tube8 -e 'LWP::UserAgent->new(show_progress=>1)->request(HTTP::Request->new("GET", WWW::Tube8->new({url=>$ARGV[0]})->flv), "$ARGV[1]")' http://www.tube8.com/asian/japanese-girl/28672/ /tmp/hoge.flv perl -MWWW::Tube8 -e 'LWP::UserAgent->new(show_progress=>1)->request(HTTP::Request->new("GET", WWW::Tube8->new({url=>$ARGV[0]})->flv), "$ARGV[1]")' http://www.tube8.com/asian/japanese-gal/68290/ ./68290.flv &