如何在Perl代码中解决“标量赋值中未初始化的值”？

Question

我将如何解决错误以下在我的代码：在faStat2线

使用标量分配未初始化值的59

#!/usr/bin/perl 
use strict; 
use warnings; 

... 

$~ = *OUTFILE; #This is the line it is complaining about 
my $cmd = $0; 
$cmd =~ s#.*/##; 

Answer 1

OUTFILE应该是单引号，因为没有他们，这是一个裸字并且在它前面的*被视为需要标量的项目。代码应该如下所示：

#!/usr/bin/perl 
use strict; 
use warnings; 

... 

$~ = 'OUTFILE'; 
my $cmd = $0; 
$cmd =~ s#.*/##;