2009-03-07から1日間の記事一覧
use strict; use Error qw(:try); try { print 'いくぞー', "\n"; die 'うわ〜 水で顔がぐしゃぐしゃだ.', "\n" if int rand(2); }otherwise{ my $e = shift; print $e; print 'あたらしい顔よ〜', "\n"; print '元気100倍', "\n"; }; print 'アンパー○チ', …
use strict; use Error qw(:try); try { print 'いくぞー', "\n"; die 'うわ〜 水で顔がぐしゃぐしゃだ.', "\n" if int rand(2); }otherwise{ my $e = shift; print $e; print 'あたらしい顔よ〜', "\n"; print '元気100倍', "\n"; }; print 'アンパー○チ', …