perl做随机

drosophilia

一个大集合如下：
aa bb cc dd ee ff gg hh ii jj一共有10个
想随机从中挑2个，重复随机操作一定次数，例如100次，这个怎么实现？



补充一个问题，数据如下：
第一列是ID号，ID号相同的为一个集合（数据中有3个集合），我想分别找出这3个集合，再依次做上面的随机！（ID好不是连续的，不知道怎么处理好）,这个数据格式不太好 ，实在不行的话，能不能实现先把每一个集合放在一行？


1        aa
1        bb
3        cc
3        dd
5        bb
5        ee

[ 本帖最后由 drosophilia 于 2009-6-21 09:57 编辑 ]

MMMIX

原帖由 drosophilia 于 2009-6-21 09:28 发表
一个大集合如下：
aa bb cc dd ee ff gg hh ii jj一共有10个
想随机从中挑2个，重复随机操作一定次数，例如100次，这个怎么实现？

数据怎么保存的？如果是 array 的话，用随机数做索引就行了。

补充一个问题，数据如下：
第一列是ID号，ID号相同的为一个集合（数据中有3个集合），我想分别找出这3个集合，再依次做上面的随机！（ID好不是连续的，不知道怎么处理好）, 这个数据格式不太好 ，

用个 hash 就是了，id 作为 key，值就是对应的集合。

drosophilia

（1）数据的格式的是array， 能贴个简单的代码吗？ 以前都用matlab做随机，因为是字符串，所以没法用它！

（2）考虑过用hash，发现key一样，则被覆盖，你这里把值作为一个集合，不知道怎么处理的，谢谢你贴个代码过来，感谢！

MMMIX

原帖由 drosophilia 于 2009-6-21 11:24 发表
（1）数据的格式的是array， 能贴个简单的代码吗？

perldoc -f rand

（2）考虑过用hash，发现key一样，则被覆盖，你这里把值作为一个集合，不知道怎么处理的，

perldoc perlreftut
perldoc perldsc
perldoc perllol
先把这几个文档看了

drosophilia

perl里面没有一个函数能自动生成一组随机数吗？例如随机生成1到10的一组数！
rand这个函数用起来还是比较麻烦，

ywlscpl

原帖由 drosophilia 于 2009-6-21 09:28 发表
一个大集合如下：
aa bb cc dd ee ff gg hh ii jj一共有10个
想随机从中挑2个，重复随机操作一定次数，例如100次，这个怎么实现？

新手来做练习

1. #!/usr/bin/perl
   
2. $num=100;
   
3. @a=qw(aa bb cc dd ee ff gg hh ii jj);
   
4. foreach (1 .. $num) {
   
5.         $n1=int (rand 10);
   
6.         while ($n1 == $n2 || !$n2) {
   
7.                 $n2=int (rand 10);
   
8. }
   
9.         print "$a[$n1] $a[$n2]\n";
   
10.         undef $n2;
    
11. }

复制代码

有个疑问是第2个随机数$n2为什么老是重复上次的值

[ 本帖最后由 ywlscpl 于 2009-6-21 16:10 编辑 ]

ywlscpl

自问自答了
循环中没有undef $n2的原因

还是改成这样好些

1. #!/usr/bin/perl
   
2. $num=100;
   
3. @a=qw(aa bb cc dd ee ff gg hh ii jj);
   
4. foreach (1 .. $num) {
   
5.         $n1=int (rand 10);
   
6.         $n2=int (rand 10);
   
7.         while ($n1 == $n2) {
   
8.                 $n2=int (rand 10);
   
9. }
   
10.         print "$a[$n1] $a[$n2]\n";
    
11. }

复制代码

[ 本帖最后由 ywlscpl 于 2009-6-21 16:11 编辑 ]

MMMIX

原帖由 drosophilia 于 2009-6-21 15:10 发表
perl里面没有一个函数能自动生成一组随机数吗？例如随机生成1到10的一组数！
rand这个函数用起来还是比较麻烦，

嫌 rand用起来麻烦你自己写一个用起来不麻烦的函数把 rand 封装一下不就完了？

drosophilia

谢谢大家了，参考MMMIX 的意见，用一个函数段完成了我想要的功能！
#!/usr/bin/perl
while(@array!=10){
    my $num=int(rand(11)-1);
    unless(grep /^$num$/, @array) {
        push @array, $num;
    }
}
print @array;

还是觉得别扭，在网上再搜搜类似的问题，找到一个好东西，用模块来做，这个东西像我常用的matlab里面randperm函数
#!/usr/bin/perl
use List::Util qw(shuffle);
@cards = shuffle 0..5;
print @cards;

大家有兴趣看看，也许以后用得着！再次谢谢大家！这样的一组随机数做索引的好处是避免前后两次索引重复！另外还是想请教一个问题，就是我的补充的第二问题，MMMIX说用hash ，id 作为 key，值就是对应的集合。我实现了，我是添加成一个大字串，用的时候再split成数组，但感觉很笨，因为我没用引用，也不会！大家还是帮我看看，贴个代码最好啊！

[ 本帖最后由 drosophilia 于 2009-6-22 09:00 编辑 ]

鲤鱼馒头

use List::Util qw(shuffle);
@array = shuffle(@array);