Perl日記

日々の知ったことのメモなどです。Perlは最近やってないです。

2011-01-01から1ヶ月間の記事一覧

for(each)のカッコ省略の謎

CGI::Sessionに以下のコードを見つけた。 Session.pm ... for my $plug qw(driver serializer id) { ... あれ?、このループさせる配列はカッコでくくらないといけないんじゃなかったっけ? for my $plug qw(driver serializer id) { # ↓ for my $plug (qw(d…

XML-RPCの文字列パース

XML-RPC形式で送られてきたレスポンスをパースする。 use LWP::UserAgent; use RPC::XML::Parser; my $url = 'http://localhost/test.cgi'; my $ua = LWP::UserAgent->new; my $res = $ua->post($url); my $parser = RPC::XML::Parser->new; my $xml_rpc = $…

abstract メソッド

Mojo.pmを見ていて、Perlでもabstract(抽象)メソッドとして定義する方法が分かったのでメモ。 まあ厳密には違うのだけれども。 親となるクラス内で、 sub handler { croak 'Method "handler" not implemented in subclass' } このように死ぬだけのサブルーチ…