scoks経由のLWP::UserAgent

Perl

socks経由でLWP::UserAgentを使いたいときのメモ。 LWP::Protocol::https::SocksChainを使って指定してあげると良いようです。 use LWP::UserAgent; use LWP::Protocol::https::SocksChain; LWP::Protocol::implementor( https => 'LWP::Protocol::https::So…

2008-01-23

autoboxでRESTクライアント

perl

autoboxが流行っているようです。自分は最近RESTづいているので、こんなクライアントモジュールを作ってみました。 http://svn.coderepos.org/share/lang/perl/autobox-REST/ use autobox; use autobox::REST; my $response = "http://example.com/rest_api…

2007-11-28

Class::C3でFizzBuzzなんぞしてみる

Perl Module

微妙に違うバッチ処理スクリプトを大量に書いていたのですが、メンテナンスや再利用性を考えるとプラガブルな感じにしておくと良さそう。PerlモジュールにClass::C3ってのがあるので、これでうまい事できないかなと．．．つーわけで、これを使って試しにFizz…

2007-10-18

Flickrの検索APIでJSONが指定できるわけだが

Flickr Perl

通常はXMLだけど、format=jsonでJSON形式で結果を出力できます（XMLをパースして取り出すは非常に面倒）。しかし、この機能は現在のところドキュメントには載っていないようです。 http://www.flickr.com/services/api/flickr.photos.search.html Perlのモ…

2007-10-09

POEでmemcachedらしきものをつくってみる

memcached perl

perlのPOEを使ってmemcachedを再現してみました。 esecached.pl memcachedの偽物なので、こんな名前です。できるのはset,get,delete,flush_allだけ。flagもexptimeも無視します（笑）。 Cache::Memcachedを騙せる事を確認しました。POEをはじめて使ったので…

2006-11-10

著作権切れをタグクラウド化

Perl 著作権

miyagawaさんのエントリーやはてなダイアリーTagCloud の影響で、第２次タグクラウドブームがおきています（脳内調査）。そこで流行にオイラも乗ってみましたよ。巷で話題の著作権切れ作品をタグクラウド化してみました。桜の樹の下には(梶井基次郎) →タグ…

2006-07-17

Module::Buildversion

Perl

「とりあえずPlaggerとCatalystなんか入れてみようかなぁ」と思いPerlモジュールを入れようとしたところ、Module::Buildのインストールでこけた。原因はversion.pmが無いから。そこでversion.pmを入れようとしたところ、今度はModule::Buildが無いと怒られる…

2006-06-25

100までの素数(mapと正規表現で)

Perl

http://ll.jus.or.jp/2006/blog/doukaku1遅ればせながら参戦 for my $i (2..100) { my $n = join ",",map{$i%$_} 2..$i-1; if($n !~ /^0\,/ && $n !~ /\,0/){ print "$i \n"; } } mapと正規表現で作ってみました。普通ですかね．．． [追記] 何も考えずに作…