perl 怎么记录行号

skyyy90

各位大侠，在处理文本时，我想记录本次循环结束时perl读取的行号，然后在下次循环开始时从上次读取的行号开始读，用什么方法可以实现呢？

shijiang1130

1. $.

复制代码

skyyy90

用$记录下行号之后，下次循环怎么从记录的行号的下一行开始呢？

rubyish

1. while (<DATA>) {
   
2.     print;
   
3.     last if /B/;
   
4. }
   
5. 
   
6. print "------\n";
   
7. 
   
8. while (<DATA>) {
   
9.     print;
   
10. }
    
11. 
    
12. __DATA__
    
13. A
    
14. B
    
15. C
    
16. D
    

复制代码

1. A
   
2. B
   
3. ------
   
4. C
   
5. D
   

复制代码

stanley_tam

楼上正解，默认就是从上次读取的行号开始读的

pitonas

楼上2,3,4,5楼正解

旋转小马

楼上2,3,4,5,6楼正解

skyyy90

回复 4# rubyish


    谢谢大侠！

kernel69

学习了
回复 4# rubyish