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

如果这个路径名单都是 一个目录树下的所有子目录,
那可能直接 sort xxx.txt 就可以?(仅针对这种情况处理,不通用)
  1. >sort xxx.txt
  2. "F:\"
  3. "F:\Downloads"
  4. "F:\Downloads\201812130355_LeboPCCast_3_11_05_Release"
复制代码

TOP

回复 11# WHY
到了win10就没理由不用 powershell 了吧

TOP

本帖最后由 523066680 于 2019-1-13 12:30 编辑

回复 18# yunyan100

    这都是看你的情况需求。对我们来说,没什么好考虑的,ruby python perl 哪一个处理这种问题都是一两句代码的事。

TOP

本帖最后由 523066680 于 2019-1-16 16:25 编辑

same same
  1. use File::Slurp;
  2. write_file("dst.txt", reverse(read_file("src.txt")));
复制代码
但是怎么能满足于此,不如假设文件大于10G,练练手吧。

tac.exe 测试超过3GB的文件,没有输出。

实践了,先用Perl试手,实测 3.0GB文件 70s,机械硬盘(蓝色标签)。
  1. =info
  2.     文本按行倒序输出
  3.     523066680/vicyang
  4.     2019-01
  5. =cut
  6. use strict;
  7. use Fcntl qw(:seek);
  8. STDOUT->autoflush(1);
  9. my $src = "F:/A_Parts.txt";
  10. my $dst = $src;
  11. $dst =~s/(\.\w+)$/_REV$1/;
  12. reverse_write( $src, $dst );
  13. sub reverse_write
  14. {
  15.     my ($srcfile, $dstfile) = @_;
  16.     open my $SRC, "<:raw", $srcfile or die "$!\n";
  17.     open my $DST, ">:raw", $dstfile or die "$!\n";
  18.     # 缓冲区大小
  19.     my $buffsize = 2**16;
  20.     my $offset = -s $SRC;
  21.     my $buff;
  22.     my @lines;
  23.     my $left = "";
  24.     while ( $offset >= $buffsize )
  25.     {
  26.         $offset -= $buffsize;
  27.         seek $SRC, $offset, SEEK_SET;
  28.         read $SRC, $buff, $buffsize;
  29.         # 拼接,考虑单行文本小于 $buffsize 的情况
  30.         $buff = $buff . $left;
  31.         if ( $buff =~/\r?\n/ ) {
  32.             @lines = reverse( split /\r?\n/, $buff, -1 );
  33.             $left = pop @lines;
  34.             printf $DST "%s\r\n", join("\r\n", @lines);
  35.         } else {
  36.             $left = $buff;
  37.             #printf "%s\n", $left;
  38.         }
  39.     }
  40.     # 如果 offset 未归零,读取剩下(源文件的开头)部分
  41.     return if ($offset <= 0);
  42.     seek $SRC, 0, SEEK_SET;
  43.     read $SRC, $buff, $offset;
  44.     @lines = reverse(split /\r?\n/, $buff .$left );
  45.     print $DST join("\r\n", @lines);
  46.     close $SRC;
  47.     close $DST;
  48. }
复制代码

TOP

返回列表