Perl における例外の基礎

croak と eval を使用．

use Carp;

sub f {
    ...
    if (something is bad) {
        croak "fail";
    }
    ...
    return something_good;
}

...
my $r = eval { f(); };
if ($@) {
    croak "f() fails.";
}
...

参照

• 「Perlベストプラクティス」13章 エラー処理

Perl の LWP でのタイムアウト

•  $ua->request() でタイムアウトすると，'500 read timeout' のエラーを持つ response が返される．
• $ua->request() で接続できないときには，'500 Can\'t connect to' のエラーを持つ response が返される．

Perl で euc-jp の端末に出力

Perl で euc-jp の端末に出力する．

binmode STDOUT, ':encoding(euc-jp)';