看似简单的问题，求最简方法！请大侠们解答！

ggglw

问题：有一个文本文件a.txt,内容为：

jlsdjl
dsflepdf
dfj
ipwier
======   dfg
fds
djfl
rewuoi
======   qqw
dsfj
wruo
======   eurew

要求：将每个横线间的内容随机输出到b.txt,例如：

dsflepdf
dfj
ipwier
jlsdjl
======   dfg
djfl
fds
rewuoi
======   qqw
wruo
dsfj
======   eurew

有横线行的位置相对不变。环境：winxp，perl5.8；请高手解答！

zhlong8

List::Util 有个 shuffle 可以用来随机排列

ggglw

谢谢楼上了，但是，最好不要用模块，用基本方法，时间来不及。

guap514

回复 1# ggglw

1. print sort { $hash->{$a} <=> $hash->{$b} } map { $hash->{ $_ } = /=/ ? ++$i : $i + rand(); $_ } <DATA>;
   
2. 
   
3. __DATA__
   
4. jlsdjl
   
5. dsflepdf
   
6. dfj
   
7. ipwier
   
8. ======   dfg
   
9. fds
   
10. djfl
    
11. rewuoi
    
12. ======   qqw
    
13. dsfj
    
14. wruo
    
15. ======   eurew

复制代码

----

1. print map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [ $_, /=/ ? ++$i : $i + rand() ] } <DATA>;

复制代码

zhlong8

不用 shuffle 怎么做啊，自己写个 shuffle 太长不了够简单啊

mysqllog

模块 不就是用来解决时间问题的么

zhlong8

4楼的思路比较有意思

1. use List::Util qw(shuffle);
   
2. 
   
3. my @data;
   
4. while (<>) {
   
5.     if (/^=/ or eof) {
   
6.         print shuffle @data;
   
7.         print;
   
8.         @data = ();
   
9.     }
   
10.     else {
    
11.         push @data, $_;
    
12.     }
    
13. }

复制代码

ggglw

太感谢guap514的回答了！你的代码很精彩，只有一行，符合要求！
继续求其他方法！

guap514

回复 7# zhlong8


    不过有几个致命的问题 就是数据不能有重复 而且不能太多

zhlong8

回复  zhlong8


    不过有几个致命的问题 就是数据不能有重复 而且不能太多
guap514 发表于 2011-06-21 11:40

    像这种复杂点的情况用一行的往往都是 FP 风格，效率问题难免的。至于不能有重复用数组替代 hash 的功能就可以了，直接 push 进去 [$_, $i+rand]