如何在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#.*/##;