【练习-002】批处理查找字符数最多的文本行

sxw

有文本a.txt如下：
aaaaaaa aaaa bbbbbb ccccccccccc dddd
aa aaaaaaa bbbbbbbb cccccccccc ddddddddddddd eeeeeee
aaaaaaaaaaaa bbbbbbbbbbb cccccccccccccccccccc
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aa
aaaaaaaaaaaaaaaaaaaaaaaaaaaa bbbbbbbbbb
aaaaaaaaa ccccccccc bbbbbbbbbbbbb ddddddddddddddddd

通过批处理查找出文本中字符数(不含空格)最多的行并输出，很明显就是复制内容到剪贴板代码:
aaaaaaaaa ccccccccc bbbbbbbbbbbbb ddddddddddddddddd

1. 
   
2. my $max=0;
   
3. my $max_length;
   
4. open(FH,"<","a.txt") or die;
   
5. while (<FH>) {
   
6.       chomp;
   
7.       my $num=tr/ //c;
   
8.      $max=$num and $max_length=$_ if $num > $max;
   
9. }
   
10. print $max_length;
    

复制代码

zaixinxiangnian

回复 1# sxw


    请问你这是批写的吗/ 怎么看不懂啊？

sxw

回复 2# zaixinxiangnian



    不是，这是Perl版。俺批学的不好，入门级别。Perl也刚入门。。。