Perl - CPANモジュール "Web::Scraper" サンプルコード

Perlプログラミング目次へ

 Web::ScraperでAmazon商品ページからページタイトルと商品説明を取得

サンプルコード

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Encode qw/decode encode/;
use URI;
use Web::Scraper;

my $url = "http://www.amazon.co.jp/Apple-2-5GHz-21-5%E3%82%A4%E3%83%B3%E3%83%81-thunderbolt%E3%83%9D%E3%83%BC%E3%83%88%E6%90%AD%E8%BC%89-MC309J/dp/B004ZD4OPA/ref=sr_1_1?ie=UTF8&qid=1338778343&sr=8-1";

my $scraper = scraper {
    process 'title',                         'title'  => 'TEXT';
    process 'div.productDescriptionWrapper', 'desc[]' => 'TEXT';
};

my $uri = URI->new($url);

my $res = $scraper->scrape($uri);

print( 'Title: ' . encode( 'utf-8', $res->{title} ) . "\n\n" );
print( 'Description: ' . encode( 'utf-8', $_ ) . "\n\n" ) for @{ $res->{desc} };

実行結果

$ perl amazon.pl
Title: Amazon.co.jp： Apple iMac 2.5GHz 21.5インチ thunderboltポート搭載 MC309J/A: パソコン・周辺機器

Description:  また限界を超える、究極のオールインワン。すべてのモデルにクアッドコアプロセッサを搭載。速くなったグラフィックスも、Thunderboltも、FaceTimeHDカメラも。Thunderbolt。最も高速で最も多機能なデスクトップのI/Oインターフェースを搭載:FireWire800ポートに比べ、最大12倍、USBポートに比べ最大20倍高速です。21.5インチモデルはThunderboltポートを1ポート搭載もしもしをHDで 新しいFace Time HDカメラ。その人をもっときれいに見たいから。:FaceTime for Macが720pのビデオ通話に対応しました。 

Description:  ■OS：MacOS X■ディスプレイ：21.5 インチ■CPU：Core i5■HDD：500GB■メモリ（標準容量／最大容量）：4 GB／8GB■Apple アイマック 

Perlプログラミング目次へ