Web::Scraper & Spreadsheet::WriteExcelでリスト生成

Spreadsheet::WriteExcel - search.cpan.orgを使ってエクセルファイル生成

#!/usr/bin/perl
use strict;
use warnings;
use Web::Scraper;
use URI;
use Spreadsheet::WriteExcel;

my $url = $ARGV[0];
my $filename = $ARGV[1];
my $scraper = scraper {
		process '', 'list[]' => { 'item1' => 'TEXT',  'item2' => 'TEXT', 'item3' => '@href' };
};
my $workbook = Spreadsheet::WriteExcel->new($filename);
   $workbook->add_format(text_wrap => 1);
my $worksheet = $workbook->add_worksheet('list');

my $uri = URI->new($URL);
my $result = $scraper->scrape($uri);
my $row = 0;
foreach my $data ( @{ $result->{list} } ) {
	my $col = 0;
	$worksheet->write($row, $col++, $data->{item1});
	$worksheet->write($row, $col++, $data->{item2});	
	$worksheet->write($row, $col++, $data->{item3});
	$row++;
}