帮分析一个抽签程序－－结帖

royalzhang老大的程序：

#!/usr/bin/perl use strict; my %hash=(    '001'=>'张三',    '002'=>'李四',    '003'=>'王五',    '004'=>'刘六',    '005'=>'陈七', ); my @pool=keys %hash; my $i = @pool; # $i是数组的长度 for(@pool){     print "Press ENTER key to continue!\nEnter 'exit' to exit the programme\n";     exit if <>=~/exit/i; my $n; #存放随机数 my $n = rand($i--); print $pool[$n],": ",$hash{$pool[$n]}," win!\n"; $pool[$n] = $pool[$i]; } print "Over! press Enter to exit!"; <>;

－－－－－－－该程序满足我的抽签要求（一个学期内，让每个学生都有且仅有一次机会做即兴演，直到50名学生轮回完毕，此为一轮抽签。然后进行第2轮....每轮抽签的结果都是随机产生的）。
－－－－－－－对该程序，偶有点不太明白：$pool[$n] = $pool[$i];该句的意思是将随机抽到的ID用最后一个ID替换。当$i--=5时，$n有可能随机恰好等于4,$i减一，此时$i=4,$ pool[$n]和$pool[$i]均等于005，也就是用005替换005，替换后005号依然存在＠pool中，该轮中，005还会参加抽签，那如何保证005不会两次或多次被抽中呢？
－－－－－－－我上面的分析哪里出了问题阿？小弟好糊涂阿，请老大耐心指点，感激不尽！谢谢！

晕，汗，也不用重复发帖吧
再次提醒你注意一点，$n能取到的最大值，每次都在减少，最后就只能直接取0了
你明白这点就会清楚了

大哥，偶欺骗了您的感情 ，对不住了！
关于这个问题，偶明白了，这几天没睡好，晕!拿出手和笔，在纸上一划就明显了，呵呵！谢谢！