> > open() || die "Can't Open Stream :$!";
> > と同じ様に使いたいってんなら$!がグローバル変数
> > だからそれと同じような風にするしかないだろ。
> > あとはリファレンスが渡されなかったら
> > エラーメッセージは黙って捨てることにすれば経済的
> > sub xx {
> > }
> > とか言う感じで。
> 確かにそうッスね。あの、$!に代入できないのは何故すか？

特殊変数だから。
perl内部でCライブラリのerrnoと関連付けられてる。
perl -e "$! = 1; print $!;"
とかやるとOperation not permittedとかそう言うのが表示されるはず。
perldoc perlvar参照。

参考：2000/08/14(月)05時34分03秒