perl 严格引用错误

Question

我收到以下 perl 错误。

Can't use string ("") as a symbol ref while "strict refs" in use at test173 line 30.

粘贴下面的代码。第 30 行是 open 语句。失败了在公开声明中。我有 use strict; 和 use warnings; 在脚本。错误表示什么？怎么改代码解决这个错误。

my $file = 'testdata';
open($data, '<', $file) or die "Could not open '$file'\n";
print "file data id:$data\n"; 
@iu_data = <$data>;
$totalLineCnt = @iu_data;
print "total line cnt: $totalLineCnt". "\n";

Answer 1

请确保您之前没有为 $data 赋值。我只需三行即可重现您的问题:

use strict;
my $data = ''; 
open($data, '<', 'test.txt');

例如，您可以通过创建新范围来解决问题:

use strict;
my $data = ''; 
{
  my $data;
  open($data, '<', 'test.txt');
  close($data);
}

或者，您可以在使用它之前取消定义 $data:

use strict;
my $data = '';
undef $data; 
open($data, '<', 'test.txt');
close($data);

等等等等......