Quote:
Originally Posted by Sly
CGI? I haven't heard that in a while... yay for Perl.
|
Code:
perl -MLWP -e '($y,$i)=shift=~/^(.+m)\/.+v=(.+)/;($m=LWP::UserAgent->new)->get("$y/get_video?video_id=$i&t=".($m->get("$y/v/$i")->request->uri=~/&t=(.+)/)[0],":content_file"=>"$i.flv")' 'https://youtube.com/watch?v=l69Vi5IDc0g'