【练习-012】实现一行内容分行输出

sxw

方法一:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. $"="";
   
6. my $_='aA1一bB2二cC3三dD4四eE5五fF6六gG7七hH8八iI9九';
   
7. my @lower=/[a-z]/g;
   
8. my @upper=/[A-Z]/g;
   
9. my @num=/[0-9]/g;
   
10. my @hz=/[^a-zA-Z0-9]/g;
    
11. print "@lower\n@upper\n@num\n@hz\n";
    

复制代码

方法二:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $string='aA1一bB2二cC3三dD4四eE5五fF6六gG7七hH8八iI9九';
   
7. my $lower=$string=~tr/a-z/ /cr;
   
8. print "$lower\n";
   
9. my $upper=$string=~tr/A-Z/ /cr;
   
10. print "$upper\n";
    
11. my $digit=$string=~tr/0-9/ /cr;
    
12. print "$digit\n";
    
13. my $hz=$string=~tr/a-zA-Z0-9//d;
    
14. print "$string\n";
    
15. 
    

复制代码