DBICのデータ->ハッシュ->JSONという手順でJSONを作る。 ハッシュを作るのにDBIx::Class::AsFdatを使ったんだけど、belongs_toまわりで期待通りじゃない。 いろいろみて 15行目 OUT: $fdat->{$column} = $self->$column; IN : $fdat->{$column} = $self->get…

PHPをテンプレートとして用いたのと同じような動きをします。内はPerlのコードして解釈はechoでし ただし、〜〜ってのは醜いと思うので〜〜としてます。 package Ter; =head1 NAME Ter - small template engine =head1 SYNOPSIS use Ter; print Ter->load( f…

sub dx(){ 1.0e-4 } =head3 integral integral( func, from, to ) funcを積分範囲fromからtoで積分 =cut sub integral{ my( $func, $f, $t ) = @_; my $x = $f; my $r = 0; while( $x <= $t ){ # r = Sigma(x=f->t)f(x)dx $r += $func->($x); $x += dx; } re…

use baseを使わずに、@ISAを触るようにすると解消されました。 ただ、なんでuse baseを使うと@ISAにExporterが入ってくるのがわかりません。 #! perl package Z; use Class::C3; use base (); sub foo{ print "Z\n"; } package A; use Class::C3; use base q…

http://d.hatena.ne.jp/ultraist/20071110/1194720734 いただき！ ただ、$selfの取得は別にやりたいので下のように改変して使ってみる予定。 my $self = shift @$args; -> #my $self = shift @$args; return %cnf; -> #return ($self, %cnf);