鈍足ランナーのIT日記

走るのが好きな5流のITエンジニアのブログ。

趣味の範囲は広いけど、どれも中途半端なクソブロガー楽しめるWebアプリを作ってあっと言わせたい。サーバーサイドPerl(Mojolicious)、クライアントサイドVue.js。Arduinoにも触手を伸ばす予定。

Rebuild.fmとdandy.fmの視聴環境整えなくては

新幹線のwifiだと、回線つらいので何とかしたいなぁ。

MP3::PodcastFetchというモジュールでローカルに一気に持ってこれる。

use strict;
use warnings;
use MP3::PodcastFetch;
use Config::PL;

$|=1;

my $config = config_do 'config.pl';
for my $rss(@{$config->{rss}}){
  print $rss , "\n";
  my $feed  = MP3::PodcastFetch->new(-base => '.',
                                     -rss  => $rss,
                                     -rewrite_filename => 1,
                                     -upgrade_tag => 'auto');
  $feed->fetch_pods;
  print "fetched ",$feed->fetched," new podcasts\n";
  for my $file ($feed->fetched_files) {
      print $file,"\n";
  }
}

conig.pl

{
  rss => [ "http://feeds.rebuild.fm/rebuildfm",
           "http://feed.dandy.fm/dandyfm",
  ]
}

できたら、MP3を直接プレーヤーへ保存して使いたいなぁ。
今持っている一昔前のプレーヤーは独自フォーマットで使えそうにない。