で、どうする...って訳でもないけど
※そういうの、「使い道ない」っていうんだよね。そうだよね。
#!/usr/bin/perlリストは、マスコミが報じない危険な航空会社リストから拝借。
use strict;
use warnings;
use Web::Scraper;
use URI;
use YAML;
my $airlines_accident_scraper = scraper {
process '//div[@class="entry-content"]//table/tr',
'airlines[]' => scraper {
process '//td[1]', title => 'TEXT';
process '//td[2]', last_accident => 'TEXT';
process '//td[3]', flight_count => 'TEXT';
process '//td[4]', death_accident => 'TEXT';
process '//td[5]', death_rate => 'TEXT';
process '//td[6]', accident_incidence => 'TEXT';
process '//td[7]', total_rank => 'TEXT';
};
result 'airlines';
};
my $list = $airlines_accident_scraper->scrape(URI->new('http://www.manji.com/jp/2007/08/post_22.html'));
use YAML;
warn Dump $list;
余談ですが...
Web::Scraper 0.16あたりから、@参照するとstringでなく、URIか返ってくるようになってるので、「認証付きのページで@srcを拾い上げて、認証無しでは参照出来ない画像を落とす」なんて事に使えるようになったみたいです。
![[Valid RSS]](http://mattn.kaoriya.net/images/valid-rss.png "Validate my RSS feed")
