求一个将文本乱序的方法

jsun

求一个程序，或脚本，或vim宏，可以完成以下任务：

有一文本，每3行一组，如下：
a1-----
a2-----
a3-----
b1-----
b2-----
b3-----
...
现在我想把a、b……的顺序打乱，但每组内3行的顺序不变。

大家能不能给个办法，或指点一下去哪里问？

jjj311

把a、b、c……分别对应1、2、3……，然后把数字乱序，然后对应数字提取对应的行，并同时提取接下来的两行即可？

BTWZ发错版块了？

zhllg

perl写个脚本吧
hash of array
randomize hash key
then print the hash out in randomized order

MaskRay

#!/usr/bin/perl

use List::Util qw(shuffle);

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

jsun

多谢两位的回复，我由于不会编程，最终使用vim进行格式处理后导入oocalc将之乱序。

也试了用mathematica，也要先进行格式预处理。

看来得学一门编程语言了。