如何从Perl文件中获取n个随机行？

现在,除了使用链接问题的解决方案循环文件之外,在一次运行中获得正好n行的最佳方法是什么？

作为参考,我试过这个：

#!/usr/bin/perl -w
use strict;
my $ratio = shift;
print $ratio,"n";
while () {
    print if ((int rand $ratio) == 1); 
}

其中$ratio是我想要的线的粗略百分比.例如,如果我想要10行中的1个：

random_select 10 a.list

但是,这并没有给我一个确切的数额：

aaa> foreach i ( 0 1 2 3 4 5 6 7 8 9 )
foreach? random_select 10 a.list | wc -l
foreach? end
4739
4865
4739
4889
4934
4809
4712
4842
4814
4817

另一个想法是啜饮输入文件,然后从数组中随机选择n,但如果我有一个非常大的文件,这是一个问题.

有任何想法吗？

编辑：这是this问题的完全重复.