例外捕捉モジュール Try::Tiny のベンチマーク - Craftworks Tech Blog - Branch
Yuval Kogman 氏が Try::Tiny という新しい例外捕捉モジュールをリリースしたようなので、ベンチマークを取ってみました。 ベンチマークコードは、Error.pm のオーバーヘッドで書いたものを流用しました。 ベンチマークコード #!/usr/bin/perl use strict; use warnings; use Benchmark qw(:all); use Try::Tiny; use Error; cmpthese(timethese(100000, { 'eval' => sub { _eval(\&die_with_object); _eval(\&die_with_string); _eval(\&dont_die); }, 'try' => sub { _tiny(\&die_with_object); _tiny(\&die_with_string);
Error.pm - 日向夏特殊応援部隊
挙動確かめる用。ちなみに Exception::Class だと pacakge をわざわざ明示的に割り当てる必要は無い。 #!/usr/bin/perl package ThrowableProcess::Exception; use base qw(Error::Simple); package ThrowableProcess::FirstException; use base qw(ThrowableProcess::Exception); package ThrowableProcess::SecondException; use base qw(ThrowableProcess::Exception); package ThrowableProcess; use strict; use warnings; use Carp::Clan; use Error qw(:try);
Perl/codepiece/try-catch-exception01 - Glamenv-Septzen.net
id: 116 所有者: msakamoto-sf 作成日: 2007-03-14 22:47:19 カテゴリ: Perl [ Prev ] [ Next ] [ Perl ] Perl(正確にはPerl5.X系列まで)にはtry-catch構文は存在しない。しかし、evalやcoderefを引数にとることができるなどの特徴を用い、幾つかの疑似try-catch的テクニックは存在する。Error.pmとうモジュールも公開されており、こちらを活用するとOOP的なtry-catchを実現できる。 参考ページ： Error.pm http://search.cpan.org/~shlomif/Error-0.17008/lib/Error.pm http://www.perl.com/pub/a/2002/11/14/exception.html http://www.perl.com/pub/
メモ: Error.pm でサブクラス化した例外を投げる - kazuhoのメモ置き場
例外を投げるときは $obj->throw。ベースクラスは Error::Simple。 try { MyException->new("hello world")->throw; } catch MyException with { my $e = shift; print "$e\n"; }; package MyException; use base qw(Error::Simple); みたく書く、色々教えてもらった結果理解した。miyagawa++ tokuhirom++ 8/28追記: ちなみに Error::Simple がセットする $@ は例外として送出されるオブジェクトで、かつ Error::Simple は stringify をオーバーライドしているので、eval を使って例外監視している場合もちゃんと動く。 eval { MyException->new("hel
ねこトトラ: Perlで例外処理
サイトメニュー EBS Eternal Champion EC 説明書 EC 掲示板 チャット EBS改造 イラスト系 東方アイコン CG Gallery 小悪魔表情集 Game & SRC 博霊散歩 東方煌十夜（途上） リリーシナリオ 弾幕インクルード 東方ネタ 東方名前録 最強ランキング 幻想郷チーム編成 アプリ、ライブラリ MjQuickView MjClickLog DxLib for C# SRCデータエディタ C#マウスジェスチャ Perlページモジュール その他のネタ ハーツ拡張ルール RPG16ステータス アニメレビュー 昔の企画 用語辞典 リレー小説 リンク 通常 CGサイト Web関連 おすすめ書籍 情報 掲示板 このサイトについて 自己紹介 « 東方煌十夜リリーシナリオ仮公開版（5話まで） | メイン | ページをめくるモジュール » 2006年01月19日 Perl
Perl のローレベルエラー処理 (もしくは Errno.pm のススメ) - JPerl Advent Calendar 2009
Perl のローレベルエラー処理 (もしくは Errno.pm のススメ) - JPerl Advent Calendar 2009 Perl に関するちょっとした Tips をのっけてみるよ。ちゃんと続くかな？ 例えば、「ディレクトリが存在しなければ作成」という処理を書くことを考えてみます。 if (! -d $dir) { mkdir $dir or die "failed to create dir:$dir:$!"; } でいいしょうか？ いえ、違います。これだと、-d 演算子でディレクトリの不存在を確認した後、mkdir を呼ぶまでの間に他のプロセスがディレクトリを作成してしまう可能性があります。なので、たとえば C ならば、 if (mkdir(dir) != 0 && errno != EEXIST) { fprintf(stderr, "failed to create d
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
