想用gvim或perl把十万行utf8字符行随机排列?

blackantt

  想用gvim或者perl把50000以上的行随机排列，不动行内容，只要按行乱序。
(用 sort ,cat 等的组合好象都出错.)

已经找到了

#!/usr/bin/perl

use List::Util qw(shuffle);

my @text = <>;
print @text[$_ .. $_ + 2] for shuffle grep { not $_ % 3 } 0 .. $#text;

Shell_HAT

http://bbs.chinaunix.net/thread-200864-1-1.html

关阴月飞

回复 1# blackantt

目测一下：

1. shuf urfile

复制代码

dolinux

cat urfile | awk 'BEGIN{srand()}{b[rand()NR] = $0;}END{for(x in b){print b[x]}}'

blackantt

thanks you two

   可惜我在windows下，手边只有gvim,perl. 哎