[bcn-pm] youtube downloader

[pancake]

he fet un petit script en per poder descargar videos de youtube i en consequencia poder
veurel's desde powerpc. Ja que l'mplayer suport el format de Flash Video (R).

Enjoy!

#!/usr/bin/perl

$base="http://videodownloader.net/get/?url=";

if ($#ARGV==-1) {
    print "Usage: u2b.pl \"[youtube-url-here]\"\n";
    exit(1);
}
$u2burl=$ARGV[0];

print "Fetching downloading url...\n\n";
$contents=`curl -s '$base/$u2burl'`;
$contents=~s/\n//;
$contents=~/<a href="http:\/\/youtube.com\/get_video\?(.*)">/;
$contents=substr($1,0,55);
print "Found: '$contents'\n\n";
system("wget -c 'http://youtube.com/get_video?$contents'");
print "\nAnd now...run mplayer!\n";