クラスメソッドの呼び出しを見てみよう。 2 use strict; 3 4 package Man; 5 sub new(){ 6 my @cals=caller(); 7 print "new:@cals:@_\n"; 8 } 9 sub walk(){ 10 my @cals=caller(); 11 print "new:@cals:@_\n"; 12 } 13 14 package main; 15 Man::walk(); 1…

すぐ忘れちゃうんでメモ。 push @{ $hash{'key'} }, $hoge http://suzuki.tdiary.net/20041102.html#p02

・Shibuya Perl Mongers http://shibuya.pm.org/ ハァハァする内容がテンコ盛りです。 ・apacheなモジュール http://module.jp/

・プロファイラ dprofpp ・バンドルコマンド一覧 http://www.linux.or.jp/JF/JFdocs/LFS-BOOK/appendixa/perl.html

{ use Fcntl; use SDBM_File; my $dbtype="SDBM_File"; tie(my(%db), $dbtype, 'd1.db', O_RDWR | O_CREAT, 0700) or die; $db{foo}="bar"; untie(%db); #unlink ; #unlink ; } use SDBM_File; は当然として、use Fcntl;を忘れると GDBMが@INCにないとかいう…

標準モジュールのみで。 use strict; use Data::Dumper; my $hash={ a=>"b", b=>"c", }; my $vij = Dumper($hash); print ("org:" , $vij); { local $Data::Dumper::Purity = 1; my $val = undef; eval Data::Dumper->Dump([$hash],['val']); ($@) && die "d…

perl5.0003などでutf8モジュールも使えないときに,split(//,$str)を 正しく行いたい。EUCの場合2byteは0x8Eで始まることが前提らしいので 以下のようなコードで確認してみた。 my $s="abc:日本語:desu"; print "--------------------- \n"; print "s:$s \n";…

CPAN見てると Regexp::Optimizer Regexp::Common とか面白い

更にもう一回勉強中。リファレンスの規則が難しすぎる。引数与えるのにこんなに悩むか!? 組み込みデータ型以外のユーザ定義型(構造体・クラス)作るのにこんな頭使うか!? 異常に簡単だったり、異常に難しかったり、本当perlって奴だけは・・・。という気持ち…

すっごい今更なんだけど、クックブックあたりすごい欲しい今欲しい。 初めてのPerl作者: ランダル・L.シュワルツ,トムフェニックス,Randal L. Schwartz,Tom Phoenix,近藤嘉雪出版社/メーカー: オライリージャパン発売日: 2003/05メディア: 単行本購入: 15人 …