稲沢市よりお届けしてます。

Perlをはじめとしたプログラミング周りのあれこれについて。Perl界のモブキャラとして暗躍します(謎)。

PPMでCPANモジュールのインストール先指定できるんじゃん!

こんばんは、Perl48です。


知らないってホントに怖いことですね。


「アマゾンのゲーム売れ筋ランキングのゲームタイトルデータを引っこ抜きたーい」

のときに、インストールした Web::Scraperモジュールが使えず無理やり

インストールしたモジュールちゃんへのパスを指定して

動かしていたのですが、


やっぱり、Perlモジュールのインストール先を指定できるんじゃーん!


PPMの右下の方を見ると、

「Install Area : site」の文字。

これ、明らかにPerlインストールしたフォルダの下のsiteフォルダのことじゃん!!


ということで、Web::Scraperモジュールへのパスなしでも動くので
「アマゾンのゲーム売れ筋ランキングのゲームタイトルデータを引っこ抜きたーい」
のソース訂正しておきまーす。


#!/usr/bin/perl -w

use lib 'C:/usr/cpan/build/Web-Scraper-0.32-VSDMOU/lib';

use Web::Scraper;
use URI;
use encoding qw(shiftjis);

# videogameRankと命名したscraperオブジェクトを作成
my $videogameRank = scraper {
# ゲームタイトル部分を gameTitles[] と命名した配列に格納
process "table.zg .productTitle", "gameTitles[]" => 'TEXT';
};

# amazon.co.jpのTVゲームベストセラーページのURLオブジェクトを対象に
# scrapeメソッドでスクレイピングを実行
my $res = $videogameRank -> scrape(URI -> new('http://www.amazon.co.jp/gp/bestsellers/videogames’));

# 配列gameTitles[]に格納されたスカラー値を順番に画面に表示
foreach my $gameTitle(@{$res->{gameTitles}}){
print "$gameTitle"."\n"; # 何が出るかな?
};


僕らは、転びながら強くなる。

そう、「転がる石になれ!」





パソコン 修理