求助：perl随机提取文本行

流星北

我有一个7000行的文本数据，想每次从中随机提取1280行，提取100次，最后生成100个1280行的文本，该如何做？各位请指点。

iamlimeng

可以将文件读入内存中的数组，以数组最大索引值为上限生成随机数，通过一个HASH来过滤重复值。

流星北

回复 2# wind_ch


    最好是代码，我刚学perl没多久。一个提取出来的文本文件中间不能重复。谢谢大哥！

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $data_file = "file1";
   
7. 
   
8. print " Generating ...\n";
   
9. 
   
10. open FH, "$data_file" or die "Can not open the required file $data_file !";
    
11. my @data = <FH>;
    
12. close FH;
    
13. 
    
14. for (1..100) {
    
15.         my %hash;
    
16.         while ((keys %hash) < 1280) {
    
17.                  $hash{int(rand($#data))} = 1;
    
18.         }
    
19.         open OUT, ">random$_.txt" or die "Can not open the required file random$_.txt !";
    
20.         foreach (keys %hash) {
    
21.                  print OUT "$data[$_]";
    
22.         }
    
23.         close OUT;
    
24. }
    
25. print " Complete!\7";

复制代码

该程序生成不重复的行号索引，也就是说，生成的同一文件不会包含重复的行，但如果你的数据本身有重复行，那应该小改一下程序。

liyangole

回复 7# iamlimeng


    多谢 ，了解，验证

长生天一

回复 7# iamlimeng


    我需要一个能随机提取行，但又要能重复的脚本。我是改不出来，想请大哥赐教。
   还有，我怎么查perl里的函数的功能，比如说那个random函数，我不知它生成的数的起点是0还是1还是可为负数，而且不知它生成的数符合什么分布？
   在Dos或Linux命令行界面解释一下吧，主要是perl是脚本，不像Linux里的函数，我能man或-h查询，perl里的函数除了上网，不知该怎么查。最好能一步步演示一下。
    谢谢！

wind_ch

1. 是想要代碼還是想要思路
2. 能不能重複提取行.

liyangole

提取文件的1280行，倒是好解决，主要是重复读取 看看大家都有什么方法，期待。。。。。。

liyangole

回复 4# iamlimeng


    具体请赐教？不胜感谢