Perl の LWP::UserAgent と XML::FeedPP を使って何かする時に、毎回フレッシュなデータを取ってきてたのですが、場合によっては一定期間は同じデータを使いまわしたいという事が出てきたのでキャッシュ機能を付けてみることにしました。
キャッシュ部分には Cache::File モジュールを使います。
キャッシュ機能をこんな感じにつけてみました。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | #!/usr/bin/perluse 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 = new Cache::File($params); $c->purge(); my $cache = $c->get($url); if (!$cache) { my $res = &lwp_get($url); if ($res) { $c->set($url, $res->content); $cache = $c->get($url); print "get: $url\n\n"; } else { print "error: $url\n\n"; exit; } } else { print "cache: $url\n\n"; } my $feed = XML::FeedPP->new($cache); foreach ($feed->get_item()) { print $_->title(), "\n"; }sub lwp_get { my $url = shift || return(0); my $lwp = ''; my $res = 0; $lwp = LWP::UserAgent->new( timeout => 30 ); $res = $lwp->get($url); if (!$res->is_success) { $res = 0; } return($res);}exit; |
キャッシュがなければ LWP::UserAgent で取得して $res->content でコンテンツデータのみをキャッシュに保存。
後は XML::FeedPP がそのキャッシュデータを読み込むという具合です。
XML::FeedPP で作成されるオブジェクト毎キャッシュした方が便利かとも思ったのですがそうでも無かったのでこんな感じに。
実行結果は以下。
Cache なし
$ perl feed_cache.plget: https://worklog.be/feedPerlからWordPressを操作するWordPressのwp_optionsテーブルって結構便利PerlとかPHPで外部コマンドを実行した時の戻り値を判定するWordPressのstyle.cssに任意のバージョンを設定するWordPressで利用するファイルのExpiresヘッダを見直すWordPressで作ったコンテンツを最適化する試みWP Super Cache の手動インストールメモWordPressでMinified化したstyle.min.cssを使うTwentyFourteenに関連記事を表示する機能を追加するTwentyFourteenにリッチスニペット対応のパンくずリストを追加 |
Cache あり
$ perl feed_cache.plcache: https://worklog.be/feedPerlからWordPressを操作するWordPressのwp_optionsテーブルって結構便利PerlとかPHPで外部コマンドを実行した時の戻り値を判定するWordPressのstyle.cssに任意のバージョンを設定するWordPressで利用するファイルのExpiresヘッダを見直すWordPressで作ったコンテンツを最適化する試みWP Super Cache の手動インストールメモWordPressでMinified化したstyle.min.cssを使うTwentyFourteenに関連記事を表示する機能を追加するTwentyFourteenにリッチスニペット対応のパンくずリストを追加 |
LWP でキャッシュを使うには他にもモジュールがあるのですが、試した感じ Cache::File が個人的には使いやすいと思いました。
簡単ですが PerlのLWPでCacheを使う は以上です。