用perl语言，实现以下结果，若一个文件有n行，随机抽取其中n行。。。 perl 随机抽取

perl里产生随机元素怎样不放回抽取？ 关于perl数组抽取的问题 sub randomElem { 匿名用户 1级 sub randomElem { my($want，@array)=_；my(%seen，@ret)；while(@ret...