perl随机抽取数字或者行

liuguiyou1981

内容：现有45000行的文件
要求：随机抽取两次，第一次上述文件从随机抽取100行，第二次从上述文件抽取150行，然后输出这两次抽取100行和150行公共行的数目
例如：文件为：
1
2
3
4
5
6
7
8
9
第一次随机提取5行为：
1
2
3
4
5
第二次5行为
1
2
3
4
7
那么我想要的就是这两次公共的行数：4

不知道我这样说大家能明白么？

兰花仙子

this post has two problems:

1st, not describe the question clearly.
2nd, not give us what you had been thinking about it.

iamlimeng

前不久有人发过类似的问题，建议楼主发贴前先搜一搜。

http://bbs3.chinaunix.net/thread-1709378-1-5.html

lbk90032190

个人认为这个问题可以简化成和文件没有关系， 只要从45000这个数里面随机抽取100个数和150个数， 然后比较相同的数字， 对应文件的行号

Shell_HAT

回复 8# liuguiyou1981


随机提取100行：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. open (IN, "file1") or die $!;
   
7. my @data = <IN>;
   
8. close IN;
   
9. 
   
10. my %hash;
    
11. while ((keys %hash) < 100) {
    
12.     $hash{int(rand($#data))} = 1;
    
13. }
    
14. 
    
15. open (OUT, ">file2") or die $!;
    
16. foreach (keys %hash) {
    
17.     print OUT "$data[$_]";
    
18. }
    
19. close OUT;

复制代码

唐归来

rand 能取0..$#data之间的随机数，取int后就无法取到数据中的最后一行，不管随机多少次，永远取不到最后一行回复 9# Shell_HAT


   

liuguiyou1981

回复 2# 兰花仙子


    谢谢仙子，已经修改完毕，你试试，看你能明白么？

liuguiyou1981

回复 4# iamlimeng


   谢谢，感觉和我很相似！我研究一下！

liuguiyou1981

回复 5# liuguiyou1981


    我以前不知道怎么搜索，现在知道了，以后遇见问题我先搜索！谢谢1

liuguiyou1981

可以这么理解，因为文件的每一行可以用它所对应的行号来表示，有多少行就有多少数字，转化为每次随机抽取数字的问题了！