如何从文件中每隔固定间距取出一行？

junlingpang

如题，
有一个文件，想每隔3行取出一组，组成一个新的文件，直到原始文件取完。例如：
1 a b
2 a b
3 a b
4 a b
5 a b
6 a b
7 a b

想要得到如下几个文件：

1 a b
4 a b
7 a b

和
2 a b
5 a b

和
3 a b
6 a b

有什么比较简单的方法吗？
我是新手，请大侠们指教。
谢谢。

yinyuemi

回复 1# junlingpang


    awk '{print >NR%3+1".txt"}' file

wuchangqian

1. #! /usr/bin/perl
   
2.       2
   
3.       3 my $file = '1.txt';
   
4.       4 my $count = 3;
   
5.       5 open F , $file or die 'open file failure';
   
6.       6 for($i=0;$i<$count;$i++){
   
7.       7
   
8.       8         open "F_$i" , ">>$file.part$i" or die 'open file failure';
   
9.       9 }
   
10.      10
    
11.      11 while(readline(F)){
    
12.      12         my $f ="F_".$. % $count;
    
13.      13         syswrite($f, $_);
    
14.      14 }
    
15.      15
    
16.      16
    
17.      17 close F;
    
18.      18 for($i=0;$i<$count;$i++){
    
19.      19
    
20.      20         close "F_$i";
    
21.      21 }
    

复制代码

x9x9

1. 
   
2. use strict;
   
3. use IO::File;
   
4. open IN,"<exp.txt" or die "can't open file:$!";
   
5. my @fh;
   
6. for (0..2){
   
7. @fh[$_]=(IO::File->new(">>file$_.txt") or die "can't open file:$!\n");
   
8. }
   
9. my $n=0;
   
10. while (<IN>) {
    
11. print {@fh[$n]} $_;
    
12. $n++;
    
13. $n=0 if $n>2;
    
14. }

复制代码

junlingpang

嗯，解决了，谢谢大侠们

kkcross

自己也贴一个，比较笨，呵呵。

#!/usr/bin/perl

my @txt;
my %hash;
open FILE,"<hash.txt";

my $hash="";
my $i=1;
while (<FILE>)
{
chomp($_);
$hash{$i++}=$_;
}

open FH1,">aaa.txt";
open FH2,">bbb.txt";
open FH3,">ccc.txt";
for my $k(sort { $a <=> $b } keys %hash)
{
print $k%3,"\n";
print  FH1 $hash{$k},"\n" if($k%3==1);
print  FH2 $hash{$k},"\n" if($k%3==2);
print  FH3 $hash{$k},"\n" if($k%3==0);
}
close (FH1);
close (FH2);
close (FH3);

rubyish

也贴一个:

1. #!/usr/bin/perl
   
2. my @f = map { open my ($f), '>', $_; $f } qw/1 2 3/;
   
3. print { $f[ $. % 3 - 1 ] } $_ while <DATA>;
   
4. 
   
5. __DATA__
   
6. 1 a b
   
7. 2 a b
   
8. 3 a b
   
9. 4 a b
   
10. 5 a b
    
11. 6 a b
    
12. 7 a b

复制代码

yinyuemi

回复 7# rubyish


    学习了

wsxedcer

回复 7# rubyish


    学习了