Web::Scraper使ってみた。

perl cpan

というわけです。

#!/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書いたのかな。