求助perl的错误！

454465933

UID: 13023
帖子: 155
积分: 356
在线时间: 1 天 9 小时

1^# 454465933 发表于 2008-12-01 15:08

求助perl的错误！

别人给我个程序运行出现了：syntax error at ./test.pl line 23, near " {"
Execution of ./test.pl aborted due to compilation errors.
错误提示。请问这错误改如何修正呢？
代码如下：my @lines;

my @data;

my %vmx;

my $in_file="Windows98.vmx";

open( FILE, $in_file );

@lines = <FILE>;

close (FILE);

chop( @lines );

for( my $i=0; $i< @lines; $i++ ){

next if ($lines[$i]=~/^(s*#)/

next if ($lines[$i]=~/^^$/);

@data=split(/=/,$lines[$i]);

if((scalar(@data) == 2 ) {
$vmx{$data[0]} = $data[1];

print $data[0],"=====",$data[1];
}else{

print "Error line at line $ilines[$i]\n";

}

}

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

2^# ly5066113 发表于 2008-12-01 15:11

第一个 next if 后面少 ; 号

454465933

UID: 13023
帖子: 155
积分: 356
在线时间: 1 天 9 小时

3^# 454465933 发表于 2008-12-01 15:14

QUOTE:

原帖由 ly5066113 于 2008-12-1 15:11 发表
第一个 next if 后面少 ; 号

原文件有的啊。。
是我传上来的时候弄没了
不好意思啊

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

4^# MMMIX 发表于 2008-12-01 15:59

QUOTE:

原帖由 454465933 于 2008-12-1 15:14 发表

原文件有的啊。。
是我传上来的时候弄没了

你这不是忽悠大家么？

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

5^# ynchnluiti 发表于 2008-12-01 16:03

if((scalar(@data) == 2 ) { #多弄了个括号，还是少弄了个

454465933

UID: 13023
帖子: 155
积分: 356
在线时间: 1 天 9 小时

6^# 454465933 发表于 2008-12-01 16:10

QUOTE:

原帖由 MMMIX 于 2008-12-1 15:59 发表

你这不是忽悠大家么？

弄上来的时候太不小心了
对不起了啊。。
虚心请教问题。。。

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

7^# MMMIX 发表于 2008-12-01 16:16

QUOTE:

原帖由 ynchnluiti 于 2008-12-1 16:03 发表
if((scalar(@data) == 2 ) { #多弄了个括号，还是少弄了个

多了。其实在这里没有必要用 scalar 的。

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

8^# MMMIX 发表于 2008-12-01 16:17

QUOTE:

原帖由 454465933 于 2008-12-1 16:10 发表

弄上来的时候太不小心了
对不起了啊。。
虚心请教问题。。。

那你现在倒是修改下啊？顺便把 Smilies 也禁用了