perl use strict; と ファイルハンドルについて

質問

perl use strict; を使うと、単純なエラーが防げると認識していますが、下記スクリプトでは役に立たなかったようで、このエラーを探すのに苦労しました。
他にも、どこかのサブルーチンでsortを使ったスクリプト中で、$aを使った時もおかしな挙動をしたことがあります。

use strict;の使い方は正しいと思うのですが、エラーを出してはくれないものでしょうか?
また、このようなエラーをしないために安全なプログラムの書き方はありますか?

use strict;

open(F,"<file.txt");
while(<F>){
&abc($_);
}
close(F);

sub abc(){
my $str = shift @_;
open(F,">>file2.txt");
print F $str;
close(F);
}

回答No.1

sakusaker7 · ベストアンサー

open でファイルハンドルを受けるのも変数にすればよいのではないでしょうか。
5.6以降なら問題なく使えるはずです。

use strict;

open my $f, '<', '<file.txt' or die $!;
while(<$f>){
&abc($_);
}
close $f;

sub abc(){
my $str = shift;
open my $f,'>>', 'file2.txt' or die $!;
print $f $str;
close $f;
}

>他にも、どこかのサブルーチンでsortを使ったスクリプト中で、$aを使った時もおかしな挙動をしたことがあります。

$a, $b は sort で使われるプレースホルダーなので、それ以外の用途で
使う変数にはしないほうがよいでしょうね。