我正在编写我的第一个perl脚本,无法编译它.我想读取一个文件,并将符合正则表达式条件的每一行输出到一个新文件.我得到一个“全局符号需要显式包名称”错误,这似乎与我读过的可变范围问题有关.我无法弄清楚我的代码有什么问题.
码：
#!/usr/bin/perl -w
use strict;
use warnings;
print "Stripping lines from data dump where WREN column is FFF\n"
my $infilename = "./test_in.txt";
my $outfilename = "./test_out.txt";
my $in = undef;
open($in,"<",$infilename) or die "Can't open $infilename: $!";
open(my $out,">",$outfilename) or die "Can't open $outfilename: $!";
while (<$in>) { # assigns each line in turn to $_
if (/.{73}FFF/){
print $out $_;
}
}
错误信息：
Syntax error at strip_nonwrites.pl line 8,near "my " Global symbol "$infilename" requires explicit package name at strip_nonwrites.pl line 8. Global symbol "$infilename" requires explicit package name at strip_nonwrites.pl line 12. Global symbol "$infilename" requires explicit package name at strip_nonwrites.pl line 12. Execution of strip_nonwrites.pl aborted due to compilation errors.