perl - 如何在此Perl语句中找到编译错误？

Question

我有以下代码:

my $orig_file_size = -s $file ;

抛出错误:

syntax error at ftp_4 line 33, near "$orig_file_size)"
Execution of ftp_4 aborted due to compilation errors.

这是更多代码:

 my $host ='hpp411';
 my $user ='sonalg';
 my $pw   ='Unix11!';

 my $file ='ftp_example.p_1';
 my $path ='/enbusers3.p411/vdx/af/sonalg/oldproj';
 my $orig_file_size = -s $file;

 my $ftp = Net::FTP->new($host, Debug => 1)
 or die "Could not connect to '$host': $@";

Answer 1

检查您的来源

根据错误消息，您在变量之后有一个右括号，如下所示:

my $orig_file_size) = -s $file ;

如果是这样，只需将其删除。