perl实现从一个文件中随机抽取n行

时间：2014-09-09 12:33:48 阅读：351 评论：0 收藏：0 [点我收藏+]

标签：style blog http color io ar for 文件 art

源码之前，了无秘密，直接上源码：

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行

标签：style blog http color io ar for 文件 art

原文地址：http://blog.csdn.net/hongchangfirst/article/details/25126457

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行