範囲演算子

Perl

範囲演算子の使い方ではまった。 my @indices = (0, 1); ### OK (1..2)[@indices]; @{[1..2]}[@indices]; ### NG [1..2]->[@indices];

2007-02-24

GC

Perl

Perlのガベージコレクタは、参照カウント方式なので、相互参照してるようなオブジェクトは使われなくなっても解放してくれない。運悪く'Out of memory!'なんて表示がでたら、シェルスクリプトでも使って、処理の1ステップごとにPerlを起動して、後で個々のス…

2007-02-19

クラスの継承が面倒くさい

Perl

Perlだとクラスの継承が面倒くさい。Rubyなら class Child < Parent ... という感じで継承できたけど、Perlだと ### ただし use strict したとき package Child; @Child::ISA = qw(Parent); ... 小さいクラスを増やそうとすると、このあたりが以外に面倒くさ…

2007-02-13

リファクタリング進まねえ

Perl Research

実験データを取るプログラムは全部Perlで書いているのですが、そろそろ条件を色々変えて実験をしないとだめなので、オブジェクト指向に基づいて拡張容易になるように改良中。モジュールの殆どをクラス化して、条件付のループの類はIteratorパターンでまとめ…

2007-01-29

shiftjisのソースコードとeuc-jpの入力

Perl

またeqで比較しちゃってて、30分無駄にした。ソースの文字コードの確認とC-x Enter fは癖にした方がいいな･･･。

2007-01-25

インストールされていないモジュールを使う

Perl

### Perlは@INCに登録されているディレクトリからモジュールを探す。 ### @INCに登録するディレクトリが1つの場合 use lib 'ディレクトリのパス'; ### 複数の場合、以下のどちらかでOK use lib ('dir1', 'dir2'); use lib qw(lib1 lib2); 相対パスでもOK。こ…

2007-01-10

参照外しを応用してハッシュをprintする

Perl

# (1) と (2) は同じ事をやっている do { %hash = ( key => val ); # (1) $listref = [%hash]; # $listref は無名リスト [key, val] へのリファレンス @list = @$listref; # $listref を @ で参照外しする print "@list\n"; #key val # (2) print "@{[%hash…

2007-01-10

リファレンスをハッシュを使って説明してみる

Perl

#!/usr/local/bin/perl # $ref は %hash へのリファレンス # %copy は %hash の複製 # undef %hash すると... # %hash は消える (つまり $ref の参照先も無くなる) # %copy は消えない (%hash を参照しているわけではないので) do { $hash{key} = 'val'; pr…