我想在下面的Perl程序中打开文件时执行一些任务.但是当我运行它时,我会遇到语法错误.它出什么问题了？
my $LOGPATH = $ENV{DATA_OU};
my $LOGFILE = "cdj_rep" . "." . "test" . ".rpt";
if ! (open(OUT,">$LOGPATH/test1/work/$LOGFILE")) {
print "testin";
return;
}
close(OUT);
解决方法
的！需要进入括号内：
if (! open (out,