perl - 使用无序整数列对文件进行排序

Question

我有一个包含两列整数值的输入文件。我想以这种方式切割输入文件

 input file:
 ...
 ...
 12312 565456
 565456 12312
 ...
 ...     

#

 output file:
 ...
 ...
 12312 565456
 ...
 ...

即，如果两个数字出现在两个以上，则在输出文件中写入一个唯一的行，其中第一个数字如果两者中较小的一个。

如何使用 sort 或 perl 脚本完成？

Answer 1

你可以试试:

perl -nale ' @F=reverse @F if($F[0]>$F[1]);                 
             $x=$F[0]." ".$F[1]; if(!$h{$x}){print $x;$h{$x}=1;}'

See it