Perl の LWP::UserAgent と XML::FeedPP を使って何かする時に、毎回フレッシュなデータを取ってきてたのですが、場合によっては一定期間は同じデータを使いまわしたいという事が出てきたのでキャッシュ機能を付けてみることにしました。 キャッシュ部分には Cache::File モジュールを使います。 キャッシュ機能をこんな感じにつけてみました。 #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use XML::FeedPP; use Cache::File; my $url = 'https://worklog.be/feed'; my $params = { cache_root => '/tmp/mycache', default_expires => '600sec' }; my $c
