自動で「YouTubeほげ」されてるムービーをYouTubeからファイルをダウンロードしてタイトルからファイル名をつけてflvとしてwgetで保存するPerlScript

  • いただきよつべとv26 current2

youtube 自動 動画 ダウンロード 保存」でぐぐってもでてこなかつたので
作りましたヽ(°▽°)ノ
WGet 1.10.2が必須です。

概要はこういうことをやってます↓

wget -O - "@ARGV" | \
  perl -nle '/(youtube.com\/watch)\?(v=[^"]+)/ && system("wget -O - http://$1\\\?$2 ")' | \
   perl -nle '/player2\.swf\?(video_id=[^&]+)\S*(t=[^"]+)/ and system "wget -O $1.tmp \"http://youtube.com/get_video.php\\?$1&$2\""'

でタイトルからファイル名変えてます

wget -O - "@ARGV" | \
  perl -nle '/(youtube.com\/watch)\?(v=[^"]+)/ && system("wget -O - http://$1\\\?$2 ")' | \
  perl -nle '/<h.+ id="video_title/i../<\/h/i and />(.*)<\/h/i and $_=$1 and  s/ /_/g and print("mv tmpfile $_.flv")'

既に一行表記はネタかと

ようつべダウンローダー - ルイズ!ルイズ!ルイズ!ルイズぅぅうううわぁああああああああああああああああああああああん!!!あぁああああ…ああ…あっあっー!あぁああああああ!!!ルイズルイズルイズぅううぁわぁああああ!!!あぁクンカクンカ!クンカクンカ!スーハースーハー!スーハース