xczxczxcz

回复 15# WHY

我认为这是正常的。你所有的行的字符数小于 65535。就会以默认的排序。如果有部分行的字符数超过 +n ，不足+n的行会以空字符补足再排序。

yunyan100

回复 2# ivor


powershell好像不错,好像使用比批处理长点时间?你可否改下增加文件或文件夹,我本意就是选择一个文件或文件夹如果有一些字符,不仅删除字还要改文件或文件夹.

yunyan100

回复 14# 523066680
我想也是,我是老江湖了,习惯了批处理,powershell如果在批处理上感觉运行慢慢一点,是不是?

523066680

回复 18# yunyan100

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

WHY

回复 16# xczxczxcz


    建议你在 win7 和 win10系统中，分别测试一下 sort /+65535

cfwyy77_bat

bash环境下的cat的反序   tac  了解一下？

tac 1.txt
复制代码

坛子里的windows下的第三方也有的下载。

Batcher

test.bat

@echo off
powershell -c "$s=gc 1.txt;[array]::Reverse($s);$s"
复制代码

523066680

same same

use File::Slurp;
write_file("dst.txt", reverse(read_file("src.txt")));
复制代码

但是怎么能满足于此，不如假设文件大于10G，练练手吧。

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

实践了，先用Perl试手，实测 3.0GB文件 70s，机械硬盘（蓝色标签）。

=info
    文本按行倒序输出
    523066680/vicyang
    2019-01
=cut

use strict;
use Fcntl qw(:seek);
STDOUT->autoflush(1);
my $src = "F:/A_Parts.txt";
my $dst = $src;
$dst =~s/(\.\w+)$/_REV$1/;

reverse_write( $src, $dst );

sub reverse_write
{
    my ($srcfile, $dstfile) = @_;
    open my $SRC, "<:raw", $srcfile or die "$!\n";
    open my $DST, ">:raw", $dstfile or die "$!\n";

    # 缓冲区大小
    my $buffsize = 2**16;
    my $offset = -s $SRC;
    my $buff;
    my @lines;
    my $left = "";
    while ( $offset >= $buffsize )
    {
        $offset -= $buffsize;
        seek $SRC, $offset, SEEK_SET;
        read $SRC, $buff, $buffsize;
        # 拼接，考虑单行文本小于 $buffsize 的情况
        $buff = $buff . $left;
        if ( $buff =~/\r?\n/ ) {
            @lines = reverse( split /\r?\n/, $buff, -1 );
            $left = pop @lines;
            printf $DST "%s\r\n", join("\r\n", @lines);
        } else {
            $left = $buff;
            #printf "%s\n", $left;
        }
    }

    # 如果 offset 未归零，读取剩下(源文件的开头)部分
    return if ($offset <= 0);
    seek $SRC, 0, SEEK_SET;
    read $SRC, $buff, $offset;
    @lines = reverse(split /\r?\n/, $buff .$left );
    print $DST join("\r\n", @lines);
    close $SRC;
    close $DST;
}
复制代码