ASM命令 使わないとすぐ忘れる
kenjiaiko さんの書かれるblogやWizard Bibleの記事は,いつも興味深く拝見させてもらっています。
本日も有用な記事を発見したので,メモメモ。
ちなみに,Wizard Bible のページはRSS/Atomが配信されていないので,Perl でフィードを生成するスクリプトを作りました。
だいたい1ヶ月に1回ページが更新されるので,毎日確認するなんて嫌!でもページが配信されたらすぐに見たいって方は,以下のスクリプトを cron で実行させて下さいな。
#!/usr/bin/perl use strict; use warnings; use URI; use XML::RSS; use Web::Scraper; eval { my $rss = XML::RSS->new( version => '2.0' ); $rss->channel( title => 'Wizard Bible RSS', link => 'http://wizardbible.org/', description => 'Wizard Bible RSS', language => 'ja', ); my $links = scraper { process "a", "result[]" => { title => 'TEXT', link => '@href' } }->scrape(URI->new('http://wizardbible.org/')); for (reverse @{$links->{result}}) { if ($_->{title} =~ /^WB([1-9][0-9]*)$/i) { $rss->add_item( title => $_->{title}, link => $_->{link} ); } } my $file = "./wb.xml"; unlink $file if (-e $file); open my $fh, ">", $file; print $fh $rss->as_string; close $fh; };