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

■

perl TT chunk TTのchunkってメソッド。 use strict; use warnings; use Template; my $data = join("",<DATA>); my $template = Template->new({}); $template->process( \$data, { hoge => 123456, } ) || die; __END__ [%- FOR v IN hoge.chunk(2) %] [% v %] [</data>…

HTTP::Daemon perl

HTTPDが気になった。 1 use strict; 2 use warnings; 3 4 use HTTP::Daemon; 5 use HTTP::Status; 6 use Data::Dumper; 7 use CGI; 8 use URI; 9 10 my $d = HTTP::Daemon->new(LocalAddr => '127.0.0.1', LocalPort => '5000' ) || die; 11 print "Please c…

perl プロトタイプ宣言

method渡したかった。 1 package Hoge; 2 use strict; 3 use base qw/Class::Accessor::Fast/; 4 5 sub run(&;$) { 6 my ($method,$num ) = @_; 7 for(1..$num){ $method->($_) } 8 } 9 10 sub test { 11 my ($self, $num) = @_; 12 print $num."\n"; 13 } 1…

Hash::AsObject perl

ハッシュの入れ子状態をメソッド形式で呼べてしまうひと。 1 use strict; 2 use warnings; 3 use YAML::Syck; 4 use Hash::AsObject; 5 6 my $data =Hash::AsObject->new( Load( join "", <DATA> ) ); 7 8 warn $data->test->hoge->tege; 9 10 __END__ 11 --- 12 t</data>…

perl 多次元配列

多次元配列やってみた。 use strict; use Data::Dumper; my @hoge; $hoge[0][0][0] = { value => "hoge" }; warn Dumper(\@hoge); $VAR1 = [ [ [ { 'value' => 'hoge' } ] ] ]; まあ、使わないけど、ちょっとおもしろかったのでメモ。全然関係ないけど、MeCa…