ishiducaの日記 このページをアンテナに追加 RSSフィード

2010-11-08

[]子プロセスでYouTube動画をダウンロードできるように直した 22:23 子プロセスでYouTube動画をダウンロードできるように直した - ishiducaの日記 を含むブックマーク はてなブックマーク - 子プロセスでYouTube動画をダウンロードできるように直した - ishiducaの日記 子プロセスでYouTube動画をダウンロードできるように直した - ishiducaの日記 のブックマークコメント

youtube2m4v.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Encode;
use Path::Class;
use WWW::YouTube::Download;
use Mac::Growl ':all';

@ARGV == 1 or die "Usage: $0 uri\n";

my $vid = $ARGV[0];
$vid =~ s|http://www.youtube.com/watch\?v=([^&]+)|$1|;

my $client = WWW::YouTube::Download->new;
my $title = $client->get_title( $vid );
my $file_name = "${title}.m4v";
$file_name =~ s|/|_|g;

my $file = Path::Class::File->new(
    "$ENV{HOME}/Movies", $file_name);

my $pid = fork;
die "fork failed ($!)\n" unless defined $pid;

unless ( $pid ) {
    warn qq(Now Download "$file_name"\n);

    $client->download($vid, {
        file_name => $file->absolute,
        fmt       => 18,
    });

    my $app_name = "growlalert";
    Encode::from_to($file_name, 'MacRoman', 'utf8');

    PostNotification(
        $app_name, 'alert', 'Finish !!', $file_name, 1 ,-2,);

    exit 0;
}

aymanayman2012/06/07 07:17Too many compliments too lttile space, thanks!

fqppthpnxiqfqppthpnxiq2012/06/08 00:50Salc2i , [url=http://scsdvbflmljo.com/]scsdvbflmljo[/url], [link=http://osudnxqusjyu.com/]osudnxqusjyu[/link], http://wcrdvwfzipwq.com/

qbktmqaxxluqbktmqaxxlu2012/06/12 03:18NYNUsf <a href="http://zpxsehagvemx.com/">zpxsehagvemx</a>

tggiyatggiya2012/06/13 08:36zaVHlj , [url=http://czplbfkqvbue.com/]czplbfkqvbue[/url], [link=http://bfjtbnedvlyv.com/]bfjtbnedvlyv[/link], http://wojrkvedmjdt.com/

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20101108