Perl学习笔记(2)----正则表达式数字匹配的一个疏忽

　　《Perl语言入门》第15章习题第2题如下：

用 given-when 结构写一个程序，根据输入的数字，如果它能被3整除，就打印“Fizz”；如果它能被5整除，就打印“Bin”；如果它能被7整除，就打印“Sausage”。比如，如果输入15，程序就应该打印“Fizz”和“Bin”，因为15可以同时被3和5整除。思考一下，可以让程序输出“Fizz Bin Sausage”的最小数字该是多少？

自己写的程序如下：

 #!/usr/bin/perl
   use 5.010;
   my $num;
   while(chomp($num=<STDIN>)){
           next unless $num =~ /\A\d+\.?\d+\z/;　　#防止输入的内容不是数字
           given($num){
                   when( not $_% ){
                           print "Fizz ";
                           continue;
                  }
                  when( not $_% ){
                          print "Bin ";
                          continue;
                  }
                  when( not $_% ){
                          print "Sausage ";
                          continue;
                  }
                  default { print "\n";}
          }
  }

结果运行的时候，发现输入 3 、5 、7 ，没有任何输出，而输入 15、 35 、21 之类的数字，却可以有 “Fizz Bin”、 “Bin Sausage” 之类的输出，怎么回事呢？

仔细推敲，原来问题出在第5行的正则表达式的代码上：

该行代码的本意是测试输入的内容是否为数字，如果不是数字，则进入下一次循环，读取下一次的输入；但匹配的模式中，'\d+' 要求至少匹配一个数字字符，则两个'\d+'则要求至少匹配两个数字字符。于是，当输入为 3 、 5、 7 的时候，因为是单个数字字符，因而无法正常匹配，就进入了下一次的循环。解决方案是使用 '/\A\d+\.?\d?/' 这个模式进行匹配。

 #!/usr/bin/perl
   use 5.010;
   my $num;
   while(chomp($num=<STDIN>)){
           next unless $num =~ /\A\d+\.?\d?\z/;  #防止输入的内容不是数字
           given($num){
                   when( not $_% ){
                           print "Fizz ";
                           continue;
                  }
                  when( not $_% ){
                          print "Bin ";
                          continue;
                  }
                  when( not $_% ){
                          print "Sausage ";
                          continue;
                  }
                  default { print "\n";}
          }
  }

问题解决！