というわけです。 #!/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/; };