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

[yto]

if (! -d $dir) { mkdir $dir; if (! -d $dir) die "failed to create dir:$dir:$!"; } ではダメ？

[studio-m]

Errno

[diary193]

Error.pm でなく Errno.pm

[kits]

「ディレクトリが存在しなければ作成」という処理では -d の結果でなく mkdir の戻り値で判定。

[mattn]

if -d なコードはむちゃむちゃ広まり過ぎてるしなー。

[kazuhooku]

タイトル直した >_< asakura-t++ / ↑id:yto -dは$!を更新するので、もっとややこしくなるかと。mkdirに限ってもErrnoを使うべきだと思います (他のErrno使うしかないケースはおくとしても)

[asakura-t]

Error.pmとあるからtry .. catch の話だと思ったらErrno.pmだった。//そしてなるほどと思った。気にしてなかったなぁ。。。

[lizy]

「文字列として評価した場合は文字列を、数値として評価した場合は数値を返す変数である」 分かりづらい……Perlに慣れた人なら気にならないんだろうか

[takatoshiono]

なるほど。理解した。

[lestrrat]

わ、-d && mkpathはアレだってのは知ってたけど、正解これでよかったんだっ

[typester]

なるほど