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

x9x9

http://bbs.chinaunix.net/thread-1622036-1-1.html
老问题了，值得参考~

kk861123

老问题了，值得参考~
x9x9 发表于 2011-11-18 15:15

    刚入cu时候就见过这个帖，当时是真看不懂啊，刚找了半天了没找到，赶紧收藏，灰常感谢！{:3_200:}

junlingpang

非常感谢大家的回复，学到了很多东西。谢谢大家^_^

rubyish

值得参考^_^

flw

同学们，要懂得封装。

1. while( defined( my $xxx = readXXX($fh) ) ){
   
2.     # 对 $xxx 进行加工
   
3. }
   
4. 
   
5. sub readXXX {
   
6.     my $fh = shift;
   
7.     my $str;
   
8.     foreach (1..2){
   
9.         my $line = <$fh>;
   
10.         last if not defined $line;
    
11.         $str .= $line;
    
12.     }
    
13. 
    
14.     return $str;
    
15. }

复制代码

XXX 是你的业务语义，这也是最重要的封装的原因：封装给了你一次命名的机会，让你的程序增加可读性，和可维护性。

kk861123

谢版主，受教！