■
- PerlIOレイヤーの指定 - メモ - Csideグループ
- Encode::Locale cpanbook
- { package DB; () = caller(1) } - メモ - Csideグループ
- 最近知ったPerlコードスニペッツ - メモ - Csideグループ
- __FILE__(どのファイルから呼ばれたか) caller(呼び出し元) __LINE__(行数) とかを埋め込んでおくとユニークなエラーメッセージを考えなくて済むので楽。
- 文字列での条件分岐 - メモ - Csideグループ
- たしかディスパッチテーブルという方法。なるほどこう使うのか。
my $type = $foo_or_bar_or_baz_or_qux eq 'foo' ? 1
: $foo_or_bar_or_baz_or_qux eq 'bar' ? 2
: $foo_or_bar_or_baz_or_qux eq 'baz' ? 3
: 4;
とかするよりは
my $type = {
foo => 1,
bar => 2,
baz => 3,
qux => 4,
}->{$foo_or_bar_or_baz_or_qux};