【练习-039】输出设定范围内的字母

sxw

下面写的好像有点问题，有时候不会输出任何类容:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. loop:
   
7. {
   
8. print "请输入1-26内的任意数值:";
   
9. chomp(my $num=<STDIN>);
   
10. redo loop if $num!~/\d+/;
    
11. #在随机生成1-26的一个数但不等于$num
    
12. my $another=int(rand 26)+1;
    
13. redo loop if $num==$another;
    
14. if ($num < $another) {
    
15.    printf "%c",$_ for ($num+96..$another+96)
    
16.    } else {
    
17.           printf "%c",$_ for (reverse ($num+96..$another+96))
    
18.                   }
    
19. }
    

复制代码