Skip to content

Instantly share code, notes, and snippets.

@ngs
Created November 10, 2010 12:16
Show Gist options
  • Select an option

  • Save ngs/670773 to your computer and use it in GitHub Desktop.

Select an option

Save ngs/670773 to your computer and use it in GitHub Desktop.
download youtube vids as mp4
#!/usr/bin/env perl -w
# TODO: support cli arguments.
use WWW::YouTube::Download;
my $client = WWW::YouTube::Download->new;
my @ids = qw(
A7h0S1nk9Hk
);
foreach my $id(@ids) {
$client->download($id, {
file_name => "$id.mp4",
});
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment