Perlでの例外処理のためのメモ。 例外発生 die関数を実行すると例外を発生させる。引数の文字列は例外メッセージとなる。 die 'Exception'; 以下の例では、is_ok()が偽である場合にdieが実行され、例外が発生する。is_ok()が真である場合はor演算子による短…

Perlでユニットテストを行うためのメモ。make test と prove の二通りのやり方を試す。Alpha::Bravoというモジュールを想定してテストを行う。 make test 多くのPerl環境で標準的に使用できる。ファイル構成 Alpha-Bravo/Makefile.PL Alpha-Bravo/t/00_compi…

Mac OSX 10.5 Leopard でPerlのCPANモジュールを利用できるようにするためのメモ。 Xcode Leopardのインストールディスク、またはMacに付属のリカバリーディスク内のインストーラからインストールを行う。もしくは以下のサイトから Xcode をダウンロードして…

前回のRubyのソースでは、ASCII文字と半角カナかどうかを半角文字の判定に使用していた。今回はPythonと同様に、Unicodeの定義から判定できるようにクラスを作成した。ついでに右寄せと中央寄せも追加した。 Singletonで最初に使用したときに、Unicode定義フ…

Rubyで左詰めを行うためにString#ljustを使ったが、文字列に全角文字や半角カナが混じると、予想していた空白の数に調整されなかった。そのためASCII文字と半角カナを判定して全角文字の数を数えてみた。ASCII文字と半角カナ以外の半角文字は考慮されていな…