ちょっと勉強
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;