523066680

use Encode;
use File::Slurp;
STDOUT->autoflush(1);

my @lines = read_file("src.txt");
my $head = shift @lines;

my @mat = map { s/\r?\n$//; [split " ", $_]; } @lines;

@mat = sort {
    $a->[0] <=> $b->[0] ||
    $b->[1] <=> $a->[1] ||
    $a->[2] <=> $b->[2] ||
    $b->[3] <=> $a->[3] ||
    $a->[4] <=> $b->[4]
} @mat;

grep { printf "%s\n", join(",", @$_); } @mat;
复制代码

62,75,65,71,63
64,70,74,75,72
66,63,77,75,79
71,63,79,60,70
74,75,72,61,61
74,64,74,78,69
79,77,70,77,67
79,76,62,62,77
79,64,72,62,76
复制代码

不知道理解的对不对，升降升降升，分级排序。

523066680

加糖，类似5楼操作。
pack - "C"  An unsigned char (octet) value.
打包后的数据是字节对齐的。

use File::Slurp;
STDOUT->autoflush(1);
my @lines = read_file("src.txt");
my $head = shift @lines;

grep { 
    my $it = 0;
    printf "%s\n", join(",", map { $it++%2 ? 100-$_ : $_ } unpack("C*", $_));
} sort map {
        my $it = 0;
        s/\r?\n$//;
        pack("C*", map { $it++%2 ? 100-$_ : $_ } split " ", $_);
    } @lines;
复制代码

523066680

PS+C Sharp 处理1W行具体时间是多少， 不懂PS 和 C Sharp

在网上找了一下 时间获取方法：

$start = Get-Date
# 中间代码
$end = Get-Date
Write-Host -ForegroundColor Red ('Total Runtime: ' + ($end - $start).TotalSeconds)
复制代码

Total Runtime: 0.1280073

perl pack 字节流方案  0.08 秒

去掉 unpack 改为按数组索引处理

use File::Slurp;
use Time::HiRes qw/time/;
my $ta = time();
my @lines = read_file("test.txt");
my $head = shift @lines;
my $buff = "";

my @dupl = map {
    my $it = 0;
    s/\r?\n$//;
    pack("C*", map { $it++%2 ? 100-$_ : $_ } split " ", $_);
} @lines;

my @idx = sort { $dupl[$a] cmp $dupl[$b] } (0..$#dupl);
grep { $buff .= $lines[$_] ."\r\n" } @idx;
write_file("pl_out.txt", {binmode=>"raw"}, $buff);
printf "%.3f\n", time() - $ta;
复制代码

含文件输出 0.046s

2楼代码改文件输出 0.045s

523066680

回复 12# WHY

    不在意秒，之前也未报时间。而是ivor写的 "最" 有一种钦定的意思，后面还有未发帖的人呢。ivor已经回复我了。