perl循环

sandy-shi

这几天开始学习perl，在遇到这个列子时就傻眼了，不知道是不是脑子锈掉了，求解答！
如何理解第5-11行的内容
1 #!/usr/bin/perl
2 $done = 0;
3 $count = 1;
4 print ("This line is printed before the loop starts.\n");
5 while ($done == 0) {
6        print ("The value of count is",$count,"\n");
7        if ($count == 3) {
8               $done = 1;
9        }
10       $count = $count + 1;
11 }
12 print ("End of loop.\n");

Cu_fans

先说下哪里不理解？

循环3次退出了。

sandy-shi

回复 2# Cu_fans
我的理解是while循环的值为假时就退出循环；然后就是为什么count的值为4时就退出了呢，

sandy-shi

现在又思考了一下，是不是可以理解成count的值为3时，$done = 1成立，然后再与$done = 0匹配，发现两者之间不一致就退出了呢

Cu_fans

现在又思考了一下，是不是可以理解成count的值为3时，$done = 1成立，然后再与$done = 0匹配，发现两者之间 ...
sandy-shi 发表于 2011-03-25 16:21

   
是的

sandy-shi

回复 5# Cu_fans


    非常感谢，呵呵，头脑经常短路