Downloading YouTube Videos with a Perl One-Liner

You're viewing a comment by Greg and its responses.

Greg Permalink
November 04, 2007, 02:54

I put together the following korn script from your perl code... It downloads the video and converts it to a DVD-style MPEG. Good work; I hope others will find it useful!

#!/bin/ksh

set -e

if [ -z "$1" ]; then
  echo "Please supply quoted URL as argument."
  exit 1
fi

URL="$1"
FILE=`echo "$URL" | awk -F 'v=' '{print $2}'`

perl -MWWW::Mechanize -e '$_ = shift; ($y, $i) = m#(http://www\.youtube\.com)/watch\?v=(.+)#; $m = WWW::Mechanize->new; ($t = $m->get("$y/v/$i")->request->uri) =~ s/.*&t=(.+)/$1/; $m->get("$y/get_video?video_id=$i&t=$t", ":content_file" => "$i.flv")' "$URL"

mencoder -of mpeg -mpegopts format=dvd -ofps 30000/1001 -oac lavc -ovc lavc -srate 48000 -af lavcresample=48000 -vf scale=704:480,expand=720:480 -lavcopts acodec=ac3:abitrate=192:vcodec=mpeg2video:vrc_buf_size=1835:vrc_maxrate=9800:vbitrate=1856:keyint=18:aspect=4/3 -o "$FILE.mpeg" "$FILE.flv"
Reply to this comment

Reply To This Comment

(why do I need your e-mail?)

(Your twitter name, if you have one. (I'm @pkrumins, btw.))

Comment Help

Type first 3 letters of your name: (just to make sure you're a human)

Please preview the comment before submitting to make sure it's OK.