Web::Scraper使ってみた。
というわけです。
#!/usr/bin/perl use Web::Scraper; use URI; my $t = scraper { process '//table[@summary="upinfo"]//tr', 'columns[]' => scraper { process '//td[2]', file_name => 'TEXT'; process '//td[3]', comment => 'TEXT'; process '//td[4]', file_size => 'TEXT'; process '//td[5]', date => 'TEXT'; process '//td[6]', mime => 'TEXT'; result qw/file_name comment file_size date mime/; }; result qw/columns/; }; use YAML; warn YAML::Dump( $t->scrape( URI->new('http://rozeen.rdy.jp/cgi/up1r/') ) );
これでファイルの情報一覧みたいなのが返ってくる。いいね!短いきれい!!やっぱりmiyagawaさんすげぇ!!!
もといこのページLDRize入れてたらPagerizeが効いてびっくりした。microformatsなのかなSITEINFO書いたのかな。