プログラムを初めて一ヶ月ぐらいの ruby コード

を perl に移植した、はいいんだけどその時のコードが鼻血がでるほどスゲェ。

ファイルに ary の中身をあらかじめコードとして書いておいて

ary = []
file = open("ary.txt")
  eval file.read
file.close

とか

y = 0 if x == "C"
            y = 1 if x == "C#"
            y = 1 if x == "DB"
            y = 2 if x == "D"
            y = 3 if x == "D#"
            y = 3 if x == "EB"
            y = 4 if x == "E"
# こっから30行ぐらいこんなコード

とか1メソッドに 200 行ぐらい書いてあったりとか。すげーぜ俺。

Inline::Module

miyagawa さんに教えてもらう。さすが Ingy...

example.pm

package Example;
use strict;
use Inline::Module 'Class::Accessor::Fast' => qw(mk_accessors);

1;

perl example.pm
cat example.pmc

__DIE__ ハンドラ

へー。typo んに教えてもらった。

#!/usr/bin/perl
use strict;
use warnings;

{
    local $SIG{__DIE__} = sub {
        my $dying_message = shift;
        print "die: $dying_message";
    };
    eval {
        die '＞＜ノ';
    }
}

die: ＞＜ノ at die.pl line 11.