[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创代码] 【练习-002】批处理查找字符数最多的文本行

有文本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. my $max=0;
  2. my $max_length;
  3. open(FH,"<","a.txt") or die;
  4. while (<FH>) {
  5.       chomp;
  6.       my $num=tr/ //c;
  7.      $max=$num and $max_length=$_ if $num > $max;
  8. }
  9. print $max_length;
复制代码

回复 2# zaixinxiangnian



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

TOP

回复 1# sxw


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

TOP

返回列表