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 ;

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

Answer 2

那句话没有错。问题可能出在文件的前面。

很容易说问题出在前一行，但考虑到解析 Perl 的困难，问题可能在文件更高的任何地方。首先要查找的是没有正确关闭的字符串和缺少终止分号的行。

Answer 3

您的错误消息（但不是您显示的代码）表明您在 $orig_file_size 之后有一个杂散的括号。

你真的有：

my $orig_file_size) = -s $file ;

如果是这样，请尝试：

my $orig_file_size = -s $file ;

或者

my($orig_file_size) = -s $file ;