Question

perl警告的问题

my $g2go;
open out,"/home/xujie/dge2/Config.lib";
while(<out>){
chomp;
if(/g2go(\s+)(\S+)/){
$g2go=$2;
}
}
报错Unquoted string "out" may clash with future reserved word at /home/xujie/soft/dge2/genDesc.pl line 40.
Unquoted string "out" may clash with future reserved word at /home/xujie/soft/dge2/genDesc.pl line 47.
我去掉-w就不会有警告。但是我不想去掉-w。不知道这个问题怎么解决。

Answer 1

这个警告是因为文件句柄一般用大写所以 out 变为 FILE 什么的就行了。这里推荐用3参数的open，如 open my $out, '<', '/home/xujie/dge2/Config.lib'; 具体内容参见 perlopentut。你的这种用法早已不推荐了，因为可能会产生此微妙的错误