年が明けてから体調の悪い bayashiです。こんにちは。
なんか、2008年の YourFileHost に続いて 2009年にブレイクするとか言われているらしい、Tube8.com(http://www.tube8.com/) の動画をPerlでまとめてダウンロードするエロHACKを紹介します。
はじめに
18禁です。良い子は実行してはいけません。
あと、コードはひと通りテストしていますが、何が起きてもオイラは責任とりません。
自己責任でどうぞ。
WWW::Tube8
WWW::Tube8 というモジュールを CodeRepos に置いてありますので、インストールしてください。
http://coderepos.org/share/browser/lang/perl/WWW-Tube8
tube8_fetcher.pl
モジュールの中に含まれる /tool/tube8_fetcher.pl がツールです。
コマンドラインから、tube8.com の動画を検索してダウンロードするために使います。
デフォルトで、/tmp/WWW-Tube8/* にダウンロードするので、予めディレクトリを作成しておいてください。
別の場所に保存したい場合は、tube8_fetcher.pl のソースを編集してください。
tube8_fetcher.pl の文法は以下のようになります。
# perl tube8_fetcher.pl コマンド 検索キーワード
コマンドは、search と download があります(それぞれ、s または DL でもOK)。
検索キーワードは半角英数字のみです。空白入れられないので注意してください。
ではまず、検索してみます。
# perl tube8_fetcher.pl search aoi 4 movies found. [39650] sora-aoi http://www.tube8.com/asian/sora-aoi/39650/ [69788] cosplay-xxx-sora-aoi-servant- http://www.tube8.com/asian/cosplay-xxx-sora-aoi-servant-/69788/ [25013] sora-aoi-suck-and-fuck http://www.tube8.com/asian/sora-aoi-suck-and-fuck/25013/ [79686] aoi-sora http://www.tube8.com/asian/aoi-sora/79686/ ok. let's download aoi #
動画が見つかったら、let's download と言われるので、以下のようにダウンロードします。
# perl tube8_fetcher.pl download aoi
これで、検索にヒットした動画をまとめてダウンロードできます。
ダウンロード中は１動画ずつ進捗が表示されるので、気長に待ってください。
え、なに、1動画ごとにダウンロードしたい？
そういう場合は、以下のワンライナーをどうぞ。
# perl -MWWW::Tube8 -e 'LWP::UserAgent->new(show_progress=>1)->reque
st(HTTP::Request->new("GET", WWW::Tube8->new({url=>$ARGV[0]})->flv), "$ARGV[1]")' http://w
ww.tube8.com/asian/japanese-girl/28672/ /tmp/hoge.flv
ケツのURLとファイルパスが、それぞれダウンロードしたい動画のURLと、保存先のファイルパスです。
最後に
なんか、flv じゃなくて、yusukebeさんがYourFileHostをハックしてるみたいに高画質のWMVとか落とせるともっとエロいと思うんですが、なんかよくわからないのでいまのところ flv のみです。
ちなみに、->flv な所を ->get_3gp とかすると、mp4 落とせたりもするかと思います。
あと、このHACKは tube8 のHTMLが変わったりすると使えなくなるので、早いうちにお試しください。
では、2009年もPerlでエロ楽しく遊んでまいりたいと思います。よろしくどうぞ。
鑑賞しても大丈夫かに