per： given when 语句中的bug？

wuxiaobo_2009

1. #!/usr/bin/perl
   
2.   2
   
3.   3 use 5.010;
   
4.   4
   
5.   5 chomp(my $num = <STDIN>);
   
6.   6 given($num){
   
7.   7         when(!/\A\d+\Z/) {say "Please input a number!"}
   
8.   8         when($_%3==0)    {say "Fizz";continue}
   
9.   9         when($_%5==0)    {say "Bin";continue}
   
10. 10         when($_%7==0)    {say "Sausage"}
    
11. 11         default         {say "This number doesn't divid 3 5 7"}
    
12. 12 }
    
13. ~

复制代码

你输入15 的时候default 语句还是要执行。 continue 的手太长？

zhlong8

你试下 105 在看是不是 bug

wuxiaobo_2009

我为什么要试验105 ？为什么continue 不是就近原则！ ，既然%7 都测试了，它后边没有continue 就在不应该执行default 了，为什么还要执行。

slayercboy

你这里边3，5，7整除有重合的部分
到7的判断，flag就重置了吧

perldoc：
Fall-through
You can use the continue keyword to fall through from one case to the next:

1. 
   
2.     given($foo) {
   
3.         when (/x/) { say '$foo contains an x'; continue }
   
4.         when (/y/) { say '$foo contains a y'            }
   
5.         default    { say '$foo does not contain a y'    }
   
6.     }

复制代码

也就是说你在前面用了continue；
后边default就不会判断那一行是否执行了？

wuxiaobo_2009

回复 4# slayercboy


    不明白你的意思， 我想问你continue 的手到底怎么定义， how long？

yybmsrs

continue就继续判断，就当前面没发生过

wuxiaobo_2009

有人运行我上边的代码，再说话吗？  为什么15 还要有default 运行！

slayercboy

回复 7# wuxiaobo_2009


continue 运行不影响其他阿
只是不作为default的判断内容而已

您也请看清别人的回复先

wuxiaobo_2009

回复 8# slayercboy


    那就是和switch 不一样呀。 还有那我怎么体现这个问题呢？ 15 怎么处理。

slayercboy

回复 9# wuxiaobo_2009


个人觉得这个场合不适合用given解决，因为几个选项之间具有交叉性
其实用if就很好

1. chomp(my $num=<STDIN>);
   
2. my $flag = 0;
   
3. if ($num!~/^\d+$/) {
   
4.         die "Please input a number!\n";
   
5. }
   
6. if ($num % 3 == 0) {
   
7.         print "Fizz\n";
   
8.         $flag++;
   
9. }
   
10. if ($num % 5 == 0) {
    
11.         print "Bin\n";
    
12.         $flag++;
    
13. }
    
14. if ($num % 7 == 0) {
    
15.         print "Sausage\n";
    
16.         $flag++;
    
17. }
    
18. if (!$flag) {
    
19.         print "This number doesn't divid 3 5 7\n";
    
20. }
    

复制代码