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

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

#! /usr/bin/perl -wuse 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的值在最后一次循环中被确定。