从一个目录中返回n个随机文件名或子目录名（可用于遍历一次文本，返回n行随机的文本行）

下面code假设要从Users/stephenzou目录返回随机两个文件名。

#! /usr/bin/perl -w

use constant TARGET => '/Users/stephenzou';

my $i = 0;
my $k = 0;
my $file_1 ='';
my $file_2 = '';
local *DIR;
opendir DIR, TARGET or die "Cannot open the path ".TARGT;
while(readdir DIR){
        rand ++$i < 1 and $file_1 = $_;
        rand ++$k < 1 and $file_2 = $_;
}
print "$file_1 : $file_2 \n";

下面这行

rand ++$i < 1 and $file_1 = $_;

在循环开始时保至少会有东西赋值到$file_1。在之后的第2，第3，第n次循环过程中，$file_1分别会有1/2,2/3,n-1/n的机率被赋予其它的值。最后$file_1的值在最后一次循环中被确定。