第15章习题（智能匹配）

1 . 猜数字游戏，使用given结构实现。 想想看该如何处理非数字的输入？ 这里不需要用智能匹配。

use 5.016;

my $Verbose =   $ENV{VERBOSE} // 1 ; #根据环境变量决定是否打印
my $hit = int(rand(100)+1) ; #1-100 以内随机数的产生

print "hit number:$hit\n" if  $Verbose ; #根绝环境变量打印答案数字

while (1) {
    print "Please enter a guess from 1 to 100:";
    chomp(my $guess = <STDIN> );  #输入数字
    # given when 结构
    given($guess) {
        when( ! /\A\d+\Z/ ) {say "Not a number!"}  #\A行首 \Z行尾 非数字
        when( $_ > $hit )  {say "Too High!" }
        when( $_ < $hit )  {say "Too low!"  }
        default   {say "Just right!"; last }     #猜中跳出循环

    }
}

 

2. 用given-when 结构写一个程序，根据输入的数字，如果能被3整除，就打印“Fizz”，如果能被5整除，就打印“Bin”，如果能被7整除就打印“sausage”。

    比如输入数字是15，程序就该打印“Fizz”和 “Bin”，因为15可以同时被3和5整除。 思考一下，可以让程序输出”Fizz Bin Sausage”的最小数字是多少？

use 5.016;

foreach  ( 1 .. 200 ) {
    my $what= '' ;  #赋值空串
    my $count;      #记录次数
    given($_) {
        when ( not  $_ % 3 ) { $what .= ' Fizz'; $count++;continue}
        when ( not  $_ % 5 ) { $what .= ' Bin'; $count++; continue}
        when ( not  $_ % 7 ) { $what .= ' Sausage';$count++; }
    }

    say "$_$what";
    last if $count == 3;  # 最小的能被3，5，7整除的数字 105
}

 

3. 用for-when 写个程序，要求从命令行遍历某个目录下的文件列表，并报告每个文件的可读，可写和可执行属性状态。不需要使用智能匹配。

use 5.016;

# 遍历命令行的文件
for (@ARGV) {
    say "Processing $_";
    when ( ! -e ) { say "\tFile does not exist!"}        #文件不存在直接测试下一个文件
    when ( -r _ ) { say "\tReadable!" ; continue}        #虚拟句柄测试 可读
    when ( -w _ ) { say "\tWritable!" ; continue}        #虚拟句柄测试 可写
    when ( -x _ ) { say "\tExcutable!" }                 #虚拟句柄测试 可执行
}

 

4. 使用given和智能匹配写个程序，从命令行得到一个数字，打印出这个数字除了1和它本身以为的因数。例如输入99，你写的程序报告3,9,11和33这4个数。

如果输入的数字就是一个质数，程序要报告说明这是质数。如果输入的不是数字，也应该报告错误，不会继续计算。

#!/usr/bin/perl
# 第15 章第四题
# 智能匹配

use 5.016;

say "Checking the number:<$ARGV[0]>";  #命令行输入数字进行检查


#given-when 智能匹配
given($ARGV[0]) {
    when ( ! /\A\d+\Z/ ) {say "Not a number!" };  #非数字
    
    my @divisors = divisors($_); #调用质数函数

    when ( @divisors ~~ [] ) { say "Number is a prime!" };  #与匿名空数组 智能匹配

    default {say "$_ is divisiable by @divisors"};          # 输出非质数的因子。


}



#返回质数的函数
sub divisors {
    my $number = shift ;

    my @divisors = ();  #空数组
    foreach my $divisor  ( 2 .. ($number/2)) {
        push @divisors,$divisor unless $number % $divisor ;
    }

    return @divisors;

}

 

5.修改上题程序，报告输入数字的奇偶情况，是否是质数，是否可以被某个你喜欢的数字整除，还是只能用智能匹配实现。

#!/usr/bin/perl
# 第15 章第五题
# 智能匹配

use 5.010;

say "Checking the number:<$ARGV[0]>";  #命令行输入数字进行检查

my $love_number = 5; #喜爱的数字

#given-when 智能匹配
given($ARGV[0]) {
    when ( ! /\A\d+\Z/ ) {say "Not a number!" }  #非数字
    
    my @divisors = divisors($_); #调用质数函数

    when ( 2 ~~ @divisors ) {say "$_ is odd!"; continue}                                     #奇数
    when ( !(2 ~~ @divisors)) {say "$_ is even!"; continue}                                  #偶数
    when ($love_number ~~ @divisors ) {say "$_ is divisalbe by love number!"; continue}                                     #被幸运数字
    when ($love_number) { say "$_ is my favoraite number! " ; continue}                        #是幸运数字
    
    when (@divisors ~~ [] ) { say "$_ is a prime!" }  #与匿名空数组 智能匹配               # 质数

    default {say "$_ is divisable by @divisors"}                                            #因数输出
    

    


}



#返回质数的函数
sub divisors {
    my $number = shift ;

    my @divisors = ();  #空数组
    foreach my $divisor  ( 2 .. ($number/2)) {
        push @divisors,$divisor unless $number % $divisor ;
    }

    return @divisors;

}