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

如何解决代码中的以下错误：

在faStat2第59行的标量赋值中使用未初始化值

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

...

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

---

OUTFILE

应该用单引号引起来，因为如果没有单引号，它就是一个空字，前面有*则被视为需要标量的项。代码应该如下所示：

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

...

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

---

OUTFILE

是否打开？而且，

$~=*OUTFILE

没有任何意义。也许

$~='OUTFILE'

（这也没有多大意义）？Matt，在您使用的几个问题中，

…

，为了便于使用，请您提供一个简单的示例。其他事情的发生与此无关，只是导致问题的部分。只是让你更容易完全按照你所做的去做。