<h3>ブーンの人に</h3>
<p>会ってきたお</p>

ブーンの人に

<h3>プログラムを初めて一ヶ月ぐらいの ruby コード</h3>
<p>を perl に移植した、はいいんだけどその時のコードが鼻血がでるほどスゲェ。</p>
<p>ファイルに ary の中身をあらかじめコードとして書いておいて</p>
<pre><code>ary = []
file = open("ary.txt")
  eval file.read
file.close
</code></pre>
<p>とか</p>
<pre><code>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行ぐらいこんなコード
</code></pre>
<p>とか1メソッドに 200 行ぐらい書いてあったりとか。すげーぜ俺。</p>
<h3>Inline::Module</h3>
<p>miyagawa さんに教えてもらう。さすが Ingy...</p>
<p>example.pm</p>
<pre><code>package Example;
use strict;
use Inline::Module 'Class::Accessor::Fast' => qw(mk_accessors);

1;
</code></pre>
<pre><code>perl example.pm
cat example.pmc
</code></pre>
<h3>__DIE__ ハンドラ</h3>
<p>へー。typo んに教えてもらった。</p>
<pre><code>#!/usr/bin/perl
use strict;
use warnings;

{
    local $SIG{__DIE__} = sub {
        my $dying_message = shift;
        print "die: $dying_message";
    };
    eval {
        die '＞＜ノ';
    }
}
</code></pre>
<pre><code>die: ＞＜ノ at die.pl line 11.
</code></pre>

プログラムを初めて一ヶ月ぐらいの 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 行ぐらい書いてあったり

プログラムを初めて一ヶ月ぐらいの 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::Modulemiyagawa さんに教えてもらう。さすが Ingy...example.pmpackage 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.

2006-06-29

<h3>一気観</h3>
<p>13話まで。あーおもしろかった。なんか喰わず嫌いしてたけど、こりゃヲタにうけるはずだわぁ。</p>
<p>そういえばアニオタってすごい数いるけど、会社のO先輩のアニオタっぷりは本物ですごい。知識の蓄積が。25歳ぐらいまではスーパーエリートっぽかった。</p>
<h3>フィード一週間ぐらい読んでない</h3>
<p><a href="http://www.fastwave.gr.jp/diarysrv/misuzilla/200606c.html#20060630-1">http://www.fastwave.gr.jp/diarysrv/misuzilla/200606c.html#20060630-1</a></p>
<p>うかががのゴースト作って Net::SSTP なんかで各種 O/R マッパにフックさせれば SQL Server に限らず喋らせられるなぁ。でもべつに com なんかから叩ければ別にうかががじゃなくてもいいのか。というか画像さえあれば Office アシスタント作って、というのが win の GUI ぷろるらみんぐできない人には早そう。</p>
<h3>休日</h3>
<p>あーしやわせ。あー来週頭原稿…。</p>
<h3>洗濯物を干したら</h3>
<p>空模様が！キィ。(*洗濯物を干し出したのは14:40ごろからです)</p>
<p>とか書いたら雨が降ってきたよ。。。</p>
<h3>今日のプレゼン</h3>
<p>俺様の英語力をみなさん理解できたと思う。</p>
<h3>終電</h3>
<p>ぎりぎり間に合った。L社の先輩方がなんかかっこよかった。</p>

一気観13話まで。あーおもしろかった。なんか喰わず嫌いしてたけど、こりゃヲタにうけるはずだわぁ。そういえばアニオタってすごい数いるけど、会社のO先輩のアニオタっぷりは本物ですごい。知識の蓄積が。25歳ぐらいまではスーパーエリートっぽかった。フィード一週間ぐらい読んでないhttp://www.fastwave.gr.jp/diarysrv/misuzilla/200606c.html#20060630-1うかががのゴースト作って Net::SSTP なんかで各種 O/R マッパにフックさせれば SQL Server に限らず喋らせられるなぁ。でもべつに com なんかから叩ければ別にうかががじゃなくてもいいのか。というか画像さえあれば Office アシスタント作って、というのが win の GUI ぷろるらみんぐできない人には早そう。休日あーしやわせ。あー来週頭原稿…。洗濯物を干したら空模

一気観13話まで。あーおもしろかった。なんか喰わず嫌いしてたけど、こりゃヲタにうけるはずだわぁ。そういえばアニオタってすごい数いるけど、会社のO先輩のアニオタっぷりは本物ですごい。知識の蓄積が。25歳ぐらいまではスーパーエリートっぽかった。フィード一週間ぐらい読んでないhttp://www.fastwave.gr.jp/diarysrv/misuzilla/200606c.html#20060630-1うかががのゴースト作って Net::SSTP なんかで各種 O/R マッパにフックさせれば SQL Server に限らず喋らせられるなぁ。でもべつに com なんかから叩ければ別にうかががじゃなくてもいいのか。というか画像さえあれば Office アシスタント作って、というのが win の GUI ぷろるらみんぐできない人には早そう。休日あーしやわせ。あー来週頭原稿…。洗濯物を干したら空模様が！キィ。(*洗濯物を干し出したのは14:40ごろからです)とか書いたら雨が降ってきたよ。。。今日のプレゼン俺様の英語力をみなさん理解できたと思う。終電ぎりぎり間に合った。L社の先輩方がなんかかっこよかった。

A Day in the Life

ブーンの人に

ブーンの人に

おたよりを送る