想用gvim或perl把十萬行utf8字符行隨機(jī)排列?

blackantt

  想用gvim或者perl把50000以上的行隨機(jī)排列，不動(dòng)行內(nèi)容，只要按行亂序。
(用 sort ,cat 等的組合好象都出錯(cuò).)

已經(jīng)找到了

#!/usr/bin/perl

use List::Util qw(shuffle);

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

Shell_HAT

http://72891.cn/thread-200864-1-1.html

關(guān)陰月飛

回復(fù) 1# blackantt

目測(cè)一下：

1. shuf urfile

復(fù)制代碼

dolinux

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

blackantt

thanks you two

   可惜我在windows下，手邊只有g(shù)vim,perl. 哎