首页 > 代码库 > perl实现从一个文件中随机抽取n行
perl实现从一个文件中随机抽取n行
源码之前，了无秘密，直接上源码：
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://blog.csdn.net/hongchangfirst/article/details/25126457
作者:hongchangfirst
hongchangfirst的主页:http://blog.csdn.net/hongchangfirst
perl实现从一个文件中随机抽取n行
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。