Pyon's Diary
![[Google に登録]](http://buttons.googlesyndication.com/fusion/add.gif "[Google に登録]"){kind=small}
2003-06-04 舊 平成拾伍年皐月伍日 (雨) [更]
![[節]](/image/flag_yellow.png "[節]")
Ruby を 1.6.8 に戻した。
先日 1.8.0 preview 2 版に上げた、と書いたが、だうも tDiary の調子が惡いので 1.6.8 に戻した。
けふは飲み會。(やまし田・神田)
前に誘つた貰つた時は自分の都合で駄目にして仕舞つた、『美味しい牛タンを食べるよ』飲み會。いつもの如くさとう先生ときみ先生の參人で。場所は神田の『やまし田』。
けふも明日迄にしなきや成ら無い仕事が有つて、今囘も駄目です、とメールしたのだけど、サーバが止まつて仕舞つたので、慌てて今日大丈夫とメールして電話して、行く事が出來た。
取敢へず秋葉原で待合はせると、さとう先生ときみ先生が一緒に來た。つて誰？。暫く會は無かつたら、きみ先生が髪を短くして、おまけに黒くして、更に眼鏡を掛けてゐた。後でどんな心境の變化か聽いてみたら、今度自分とこの兩親と彼女のとこの兩親と六人で御飯を食べるので其之爲だと。
取敢へず麥酒で乾杯して、最初に新鮮な『レバー刺し』臭みがちつとも無くて、とても美味しかつた。此は麥酒では無くて日本酒でせうと思つたので、ジョッキを空けた後はずつと日本酒を頼んだ。
次が『茹でタン』。普段牛タンと云つたら、焼いてコリゝゝした食感だけど、此は茹でゝあつて、擦つた山葵を付けてかぶりつくと、豚の角煮みたいに口の中でとろけて、とても美味しかつた。
日本酒もかぽゝゝ飲んで、漫畫の話しや、映畫の話をしてゐると今度は『焼きタン』。鹽と胡椒が振つて有つて、檸檬汁など漬けないでも牛タン本來の味で充分美味しいかつた。他は何を食べたか實は余り覺えてゐ無くて、店を出てから家迄だうやつて歸つたかすら定かでは無かつた。
でも、美味かつた、今度は美味しい焼肉屋らしい。
![[ツ]](/image/comment.png "[ツ]"){kind=small}
○でなし [養生せえと言うてこのネタはきつい(泣)まあいいやこんど連れてってもらうから＞さ○う君]
2007-06-04 舊 平成拾玖年卯月拾玖日 (月・晴) [更]
にしやん [あぁっ！ついに行動に出られたんですねっ☆ どこにいかれるんですか！？ ウチはついに2chにスレッドが建ってしまいま..]
ぴ [好い所が在つたら逝き度いなあ、と。 出てきた開発の長は歳が一つ下で、可也自分でやる人みたいだつた。 どこかの会社みた..]
2008-06-04 舊 平成廿年戊子皐月朔日乙亥 (水・雨) [更]
Perl のハッシュでの defined, exists の動作。
何時も迷ふので書き殘して置く。
% cat test.pl use strict; use warnings;
my $a = { 'one' => 1, 'two' => undef, };
defined( $a->{'one'} ) and print q/$a->{'one'} is defined./, "\n";
defined( $a->{'one'} ) or print q/$a->{'one'} is not defined./, "\n";
defined( $a->{'two'} ) and print q/$a->{'two'} is defined./, "\n";
defined( $a->{'two'} ) or print q/$a->{'two'} is not defined./, "\n";
defined( $a->{'three'} ) and print q/$a->{'three'} is defined./, "\n";
defined( $a->{'three'} ) or print q/$a->{'three'} is not defined./, "\n";
exists( $a->{'one'} ) and print q/$a->{'one'} exists./, "\n";
exists( $a->{'one'} ) or print q/$a->{'one'} doesn't exist./, "\n";
exists( $a->{'two'} ) and print q/$a->{'two'} exists./, "\n";
exists( $a->{'two'} ) or print q/$a->{'two'} doesn't exist./, "\n";
exists( $a->{'three'} ) and print q/$a->{'three'} exists./, "\n";
exists( $a->{'three'} ) or print q/$a->{'three'} doesn't exist./, "\n";
此れの結果は以下の通り。
% perl test.pl
$a->{'one'} is defined.
$a->{'two'} is not defined.
$a->{'three'} is not defined.
$a->{'one'} exists.
$a->{'two'} exists.
$a->{'three'} doesn't exist.
キー 値 defined exists 有 有 眞 眞 有 未定義 僞 眞 無 -- 僞 僞