TitaniumMobile勉強記

Web系エンジニア向けのキャリアアドバイザーやってましたが現在はフリーランスで開発含めて色々やってます。技術ネタとしてはRuby/RailsとJavaScript関連(Node.js、Titanium)あたり

ちょっと勉強



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;
Tags: