看小骆驼的书上有疑问！！！！

alfred1980

在看到given那章节，碰到一个问题：
#!/usr/bin/perl
use strict;
use 5.010;

given($ARGV[0]){
when(/fred/i) {say 'name has fred in it';continue}
when(/^Fred/) {say 'name starts with Fred';continue}
when('Fred')  {say 'name is Fred';continue}
default       {say "i don't see a Fred"}
}
在输入perl hello.pl Alfred
得到的结果：
name has fred in it
i don't see a Fred
于是书上提到，将第三个continue改成break：
#!/usr/bin/perl
use strict;
use 5.010;

given($ARGV[0]){
when(/fred/i) {say 'name has fred in it';continue}
when(/^Fred/) {say 'name starts with Fred';continue}
when('Fred')  {say 'name is Fred'}
default       {say "i don't see a Fred"}
}
但是结果还是如此，因为显然，在不进入到第三个when程序体里，是不会被跳出的，我想这应该是个很显而易见的，是书中有问题吗？
还是小弟理解的有问题？
应该如何避免呢？

Mr-Summer

因为default==when(1==1)，lz想when都顺序比较下来，不匹配时default，匹配时不default是不可能的哦

alfred1980

这个我知道，但是看过小骆驼都知道，书上的确是这么说的！
我觉得，应该是我理解的有问题！

alfred1980

论坛里应该很多人看过小骆驼，对书中这一问题不知道有何高见？

blackold

书有问题。起码与你的实验结果不符。

alfred1980

黑哥也在perl里混啊，哈哈哈！