0

私はこのコードを持っています：

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': $@";
4

3 に答える 3

4

ソースを確認してください

エラーメッセージによると、次のような変数の後に閉じ括弧があります。

my $orig_file_size) = -s $file ;

もしそうなら、それを削除するだけです。

于 2009-11-18T10:25:18.660 に答える
1

その声明には何の問題もありません。問題はおそらくファイルの初期にあります。

問題は前の行にあると言いたくなりますが、Perlの解析が難しいことを考えると、問題はファイルの上位にある可能性があります。最初に探す必要があるのは、適切に閉じられていない文字列と、終了するセミコロンがない行です。

于 2009-11-18T10:23:40.323 に答える
1

エラーメッセージ（表示されているコードではありません）は、$orig_file_sizeの後に迷子の括弧があることを示しています。

あなたは実際に持っていますか：

my $orig_file_size) = -s $file ;

もしそうなら、試してみてください：

my $orig_file_size = -s $file ;

また

my($orig_file_size) = -s $file ;
于 2009-11-18T10:24:42.560 に答える