【求助】让文本文件的行内容乱序

Bisn

文本内容如下：
1 --- I
2 --- L
3 --- O
4 --- V
5 --- E
6 --- Y
7 --- O
8 --- U
9 --- !
10 --- !

怎样才能实现文本文件按行来随机组合生成新的文件，如下面的效果
5 --- E
1 --- I
3 --- O
10 --- !
7 --- O
2 --- L
4 --- V
8 --- U
9 --- !
6 --- Y
谢谢啦！

churchmice

最简单的就是将每行存成hash，然后将hash打印出来好了
这是一种伪随机的方法，就看你的“随机”究竟要随机到什么程度了

MMMIX

see 'How do I select a random line from a file?' in Perl FAQ5 (perlfaq5)
and 'How do I shuffle an array randomly?' in perlfaq4

or just see whatever 'perldoc -q random' give you

[ 本帖最后由 MMMIX 于 2009-1-13 22:41 编辑 ]

ynchnluiti

faq里东西真是挺全的

DQP

真的很不错 谢谢了
我也把我的方法贴出来不过明显效率不如faq中的那个高 差距啊

1. 
   
2. @content = qw( a b c d e f);
   
3. print map {$_->[1]}
   
4.   sort {$a->[0] <=> $b->[0]}
   
5.   map {[rand, $_]} @content;
   

复制代码