ちょっと勉強

MacでPerlの勉強しはじめているんだけど、さしあたって会社にあったSpidering hacksのLWP::Simpleを用いた簡単なデータ取得っていうやつを書いていたんだけど、本に書いてある通りにやってもうまくいかなかったんだけど、どうもPerlがLWP::Simpleのディレクトリを検索してくれなくてえらーになっていたみたい

なので、

BEGIN {
unshift @INC,'/Users/xxxxxx/.cpan/build/libwww-perl-5.805';
}

という一文を追加したらできた!

!/usr/bin/perl -w
use strict;
BEGIN {
unshift @INC,'/Users/xxxxxx/.cpan/build/libwww-perl-5.805';
}
use LWP::Simple;
use Encode;
use encoding 'shiftjis';
binmode(STDERR, ':raw:encoding(shiftjis)');
my $url = 'http://www.yahoo.co.jp';

my $content = get($url);
$content = decode('shiftjis',$content);
print $content;
[PR]
by h5y1m141 | 2006-06-18 21:38
<< 人と人とのつながり ITエンジニアの意識 >>