Hatena::Groupsubtech

#生存戦略 、それは

-> 06 { 06 / 29 }

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

17:33 | はてなブックマーク - プログラムを初めて一ヶ月ぐらいの 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

17:18 | はてなブックマーク - 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__ ハンドラ

17:09 | はてなブックマーク - __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.
トラックバック - http://subtech.g.hatena.ne.jp/secondlife/20060629