やってもうたよ。。。初歩的な過ち。。。ハッシュとか配列とかで、キーと値をいっぺんに取ってくるeach関数。よくやるのが、while( my ( $key, $value ) = each( %hash ) ){ print "%hash{ $key } = ", $hash{ $key }, "\n"; } とかやって、ハッシュの中身を…

中身というかコードというか。。。 B::Deparse; っていうモジュールを使います。use B::Deparse; my $bd = B::Deparse->new();として、みたいサブルーチンのリファレンスを参照します。 例ここではhogeっていうサブルーチンがある場合 print $bd->coderef2te…

は何を使おうかしらと思ったんです。 でも、実際にはまだよく分かっていない。。。 前に、一生懸命Catalystを読んだんですが、なんのこっちゃわけわかめ。 今、読むと昔よりはましに読めたりするのかなぁ。。。 他にもいろいろあるんですねぇ。。。■ライブド…

予期せぬエラーにスタックトレース！？ use Carp; local $SIG{__DIE__} = \&Carp::confess; local $SIG{__WARN__} = \&Carp::cluck;■Perl – Hoge Knowledge

ＳＵＰＥＲって、今まで勘違いしてました。 って続く。。。 ■SUPER - 北海道苫小牧市出身の初老PGが書くブログ

最近、特殊変数の$1について、びっくりしたことがありました。。。$1はいわずもがな、正規表現の結果をメモリからとってくるわけでして。※つづく…

※あとでまとめるなんか、、、ドエライことになってしまった。 まず、[XML::Simple]を使って、xmlファイルを解析するプログラムを作ったわけです。 そしたらば、、、 XML::Simpleでメモリリークを起こしてることが判明。犯人は誰だ！？どうやらXML::Simpleは…

テストを書くためのもう一つのフレームワーク こんな感じ{package hoge; use strict; use CGI; use Data::Dumper; my %hash; my $cgi = CGI->new; $hash{'c'} = $cgi->param('c'); print "NG\n" if !$cgi->param('c'); print "OK $hash{'c'}\n" if $cgi->par…