概述源码之前,了无秘密,直接上源码: if(@ARGV!=2){ die "Usage: $0 sample_file sample_number\n"; } my($sample_file, $sample_number) = @ARGV; open my $FILE, "<$sample_file" or die "Can't open $sample_file $!\n"; my @cont
源码之前,了无秘密,直接上源码:if(@ARGV!=2){
dIE "Usage: $0 sample_file sample_number\n";
}
my($sample_file,$sample_number) = @ARGV;
open my $file,"<$sample_file" or dIE "Can't open $sample_file $!\n";
my @content = <$file>;
my $all_number = @content;
print STDERR "|$all_number|\n";
my %hits;
my $wl = $sample_number;
for(my $i = 0; $i < $all_number; ++$i){
if(rand($all_number-$i) < $wl){
$hits{$i} = 1;
print STDERR "$wl\n";
--$wl;
}
}
my $j = 0;
print STDERR "start\n";
foreach(@content){
print "$_" if $hits{$j};
++$j; }
print STDERR "done.\n";
原文:http://www.voidcn.com/article/p-ozgsrdev-baq.html
作者:hongchangfirst
hongchangfirst的主页:http://blog.csdn.net/hongchangfirst
总结 以上是内存溢出为你收集整理的perl实现从一个文件中随机抽取
n行全部内容,希望文章能够帮你解决perl实现从一个文件中随机抽取n行所遇到的程序开发问题。
评论列表(0条)