Skip to content

Instantly share code, notes, and snippets.

@taiyoh

taiyoh/record_radiko.pl

Last active August 29, 2015 13:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save taiyoh/10005543 to your computer and use it in GitHub Desktop.
Save taiyoh/10005543 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
record_radiko.pl
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use FindBin::libs;
use Radiko;
my $radiko = Radiko->new(
channel => 'INT', # see http://www.dcc-jpl.com/foltia/wiki/radikomemo
);
$radiko->record({
minutes => 60,
output => '/tmp/foo.mp4'
});
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment