perl循环

   1 #! usr/bin/perl -w                                                                                 
  2
  3 @shuzhu=qw();
  4
  5 for($i=0,$i <= 500000,$i++)
  6 {
  7      push(@shuzhu,$i);
  8 }
  9
 10 foreach $aa(@shuzhu)
 11 {
 12      print $aa,"\n";
 13 }
 14

panda@panda-laptop:~/code/perl$ perl s1.pl
1
1
1

结果不知道为什么是这样？？


#!/usr/bin/perl
@shuzhu=qw();

for($i=0; $i <= 500000; $i++)
{
push(@shuzhu,$i);
}

foreach $aa(@shuzhu)
{
print $aa,"\n";
}

这个对！输出的为1到50000  ？？？？？？求错误在哪？

终于找到错误的原因了，如下：

for($i=0,$i <= 500000,$i++)
for($i=0; $i <= 500000; $i++)

这两个代码的不同在于第一个for里面使用的是“，”。perl是不经过编译的，执行时也没有报错，所以学要注意编码习惯，细心耐心了……