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

为什么此代码不起作用：

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\u handle=$cgi->upload（'file'）；
打开我的$OUTFILE_FOTO，“>>”，“image/$new_file.$extension”；
而（）{
将输出文件打印到$；
}
关闭（$file\u handle）；
关闭（输出文件）；

但该代码确实有效：

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);

my$file\u handle=$cgi->upload（'file'）；
打开（OUTFILE_FOTO，'>>，“image/$new_file.$extension”）；
而（）{
将输出文件打印到$；
}
关闭（$file\u handle）；
关闭（输出文件）；

在第一个示例中，您正在声明和分配标量

$OUTFILE\u FOTO

，但稍后您将其引用，就像它是一个裸字

OUTFILE\u FOTO

一样。在第一个示例中，您在

打印

和

关闭

中将一个

$

放在它前面，声明并分配一个标量

$OUTFILE\FOTO

，但稍后您引用它时就好像它是一个裸字

OUTFILE\FOTO

。在第一个示例中，您在

打印

和

关闭

中将一个

$

放在它前面，声明并分配一个标量

$OUTFILE\FOTO

，但稍后您引用它时就好像它是一个裸字

OUTFILE\FOTO

。在第一个示例中，您在

打印

和

关闭

中将一个

$

放在它前面，声明并分配一个标量

$OUTFILE\FOTO

，但稍后您引用它时就好像它是一个裸字

OUTFILE\FOTO

。在

打印

和

关闭

中为其预先添加一个

$

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

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\u handle=$cgi->upload（'file'）；
打开我的$OUTFILE_FOTO，“>>”，“image/$new_file.$extension”；
而（）{
将$OUTFILE\u fo打印到$；
}
关闭（$file\u handle）；
关闭（$OUTFILE_FOTO）；

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

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\u handle=$cgi->upload（'file'）；
打开我的$OUTFILE_FOTO，“>>”，“image/$new_file.$extension”；
而（）{
将$OUTFILE\u fo打印到$；
}
关闭（$file\u handle）；
关闭（$OUTFILE_FOTO）；

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

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\u handle=$cgi->upload（'file'）；
打开我的$OUTFILE_FOTO，“>>”，“image/$new_file.$extension”；
而（）{
将$OUTFILE\u fo打印到$；
}
关闭（$file\u handle）；
关闭（$OUTFILE_FOTO）；

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

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\u handle=$cgi->upload（'file'）；
打开我的$OUTFILE_FOTO，“>>”，“image/$new_file.$extension”；
而（）{
将$OUTFILE\u fo打印到$；
}
关闭（$file\u handle）；
关闭（$OUTFILE_FOTO）；