能帮我看一下，这段代码错在哪吗？（PERL）

[arhoo]

open(FILE,"<dongtai.fb");
my $i=1;
while(<FILE>){
chomp;
($dongtai1,$dongtai2,$dongtai3)=split(/::::/,$_);
print qq( <tr>
<td width="72%"><a href="javascript:openwin('dongtai','$i')">$dongtai1</a></td>
<td width="28%">[$dongtai3]</td>
</tr>);
LAST if $i=6;
$i++;
}
for(my $r=$i,$r<=6,$r++){
print qq( <tr>
<td width="72%"> </td>
<td width="28%"> </td>
</tr>);
}

[arhoo]

普通文件……
里面放的是网页的材料……
只是不知道为什么，处理后的内容里没有从文件中读取去的内容~

[lgjut]

open(FILE,"<dongtai.fb") or die "Couldn't open file: $!\n";
先看看文件是否已经打开。

[snjsj]

LAST if $i=6;// =有问题吧？==?

[yakai]

split(/::::/,$_);
你什么文件啊，分割符这么狠

[arhoo]

这句有什么问题呢？

[arhoo]

打得太急了~
for语句改一下~
for(my $r=$i；$r<=6；$r++){

上面打开文件，然后输入文件内容的操作似乎没有实现~
问题出在哪？

[arhoo]

自己发现一个问题~
就是在两个循环体之前定义了my $i=1~
那在wile循环中$i的变化不能同过my $r=$i带到for循环中~
是不是这样的？

[arhoo]

是啊是啊~
我怎么没开窍呢……
今天上午刚想到来上网~
呵呵~
谢谢啊~

[laughcry2002]

就是这句啊：
LAST if $i=6;
应该是两个等号，现在程序在第一个循环中执行到这行时，由于if后的条件为真，因此就跳出了（即第一个循环只会运行一次）。
至于变量$i，那不是一个问题，没关系的。

[arhoo]

我初来乍到，不知道怎么给分~
已解决问题的帖子该怎么处理…………
不想失信啊~

[laughcry2002]

本页最上面不是有一排“回复 | 推荐 | 收藏 | 专题 | 公告 | 管理 | 保存 | 回复通知 | 关闭窗口 ”吗，点击“管理”吧。