Downloading YouTube Videos with a Perl One-Liner

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

Saldane Permalink
July 27, 2007, 07:46

Sorry to spam, I'm new to the intertubes.

Third time's the charm (perltidied):

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"
  )
'
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.