能帮我看一下,这段代码错在哪吗?(PERL)
arhoo 2003-08-31 12:27:50 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>);
}