如何通过句柄，每两行读文件？

junlingpang

如题，perl里的文件句柄默认是按每行处理文件的，我现在想两行两行处理文件，如何操作呢？
（p.s.文件太大，存成数组处理不太现实~）
望大侠们指教啊~
先谢过了

Kitaisky

while (line=<FH>) {
    line .=<FH>
    ....................
}

agile_work

open file,"test.txt";
$line=1;
while(<file>){
   if($line%2=1){
     print $_;
   }
   $line++;
}

agile_work

理解错，自己批评下

junlingpang

回复 4# agile_work


    哈哈，没关系，谢谢答复

junlingpang

回复 2# Kitaisky


    谢谢回复

bikong0411

$.这个也是可以的

kk861123

回复 1# junlingpang

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my $line;
   
7. while (<>) {
   
8.         $line .= $_;
   
9.         next if $. % 2 == 1;
   
10.         # do yourself here #
    
11.         print $line;
    
12.        
    
13.         undef $line;
    
14. }
    
15. 
    

复制代码

yinyuemi

回复 1# junlingpang

1. #!/bin/perl
   
2. use strict;
   
3. 
   
4. my $var;
   
5. my $tmp;
   
6. while(<DATA>){
   
7.     chomp($tmp=<DATA>);
   
8.         $var=$_.$tmp;
   
9.         print $var,"\n";
   
10.         undef $tmp;
    
11.         print "#\n";
    
12.         }
    
13.        
    
14. __DATA__
    
15. 1
    
16. 2
    
17. 3
    
18. 4
    
19. 5
    
20. 6
    

复制代码