为什么此Perl IO代码不起作用？

Question

为什么此代码不起作用：

my $file_handle = $cgi->upload('file');
open my $OUTFILE_FOTO, '>>', "image/$new_file.$extension";
while (<$file_handle>) {
    print OUTFILE_FOTO $_;
}
close($file_handle);
close(OUTFILE_FOTO);

但是这段代码确实有效：

my $file_handle = $cgi->upload('file');
open( OUTFILE_FOTO, '>>', "image/$new_file.$extension" );
while (<$file_handle>) {
    print OUTFILE_FOTO $_;
}
close($file_handle);
close(OUTFILE_FOTO);

Answer 1

在第一个示例中，您声明并分配了标量$OUTFILE_FOTO ，但是稍后要引用它，就好像它是一个裸OUTFILE_FOTO OUTFILE_FOTO OUTFILE_FOTO 。 在print和close时在其前面加上$ 。

Answer 2

现在应该可以使用了。 看到我的$ OUTFILE_FOTO时，您已经创建了一个文件句柄变量，这是实现perl最佳实践的方法之一。 但是您已经在程序中提供了Bareword-OUTFILE_FOTO。您可以尝试使用use strict来避免这些错误； 并使用警告；

my $file_handle = $cgi->upload('file');
open my $OUTFILE_FOTO, '>>', "image/$new_file.$extension";
while (<$file_handle>) {
    print $OUTFILE_FOTO $_;
}
close($file_handle);
close($OUTFILE_FOTO);