One-liner Youtube Downloader

This program downloading youtube videos with using wget. Videos are directly downloading. If you want to convert downloaded videos to mpeg from flv, you must have ffmpeg and add this code to end of the program:

`ffmpeg -i $_[1] -ab 128 -ar 44100 -b 500 -s 320x240 $_[1].mpg`;
[download]

Using:

perl youtube-downloader http://www.youtube.com/watch?v=dXmKDkAAamc
[download]

use strict;use LWP::Simple;@_ = get ($ARGV[0]) =~ /var swfArgs = {hl:'
+en',(video_id):'([\w_-]{11,11})',(l):'([\d]+)',(t):'([\w_-]+)',(sk):'
+([\w_-]+)'};/;my $url = "http://www.youtube.com/get_video.php?";for (
+my $i = 0; $i < @_; $i = $i + 2){$url .= "&" . $_[$i] . "=" . $_[$i+1
+];}`wget -O $_[1].flv "$url"`;
[download]

Back to Cool Uses for Perl