读取文件如何接着上一次的进度

raoweijian

谢谢大家的帮助，已经改好了。
用tell和seek，加了一点修改就好啦

rubyish

不会从头读取啦~

picbhan

回复 5# raoweijian


    你那两个while不就是先在IF1里读取一行处理，然后在IF2里读取一行处理，再从IF1读取一行这样循环下去的吗？真没搞懂为什么你觉得IF2每次从头读取了。另外一种简单点的写法可以这样写：

1. while (<IF1>) {
   
2.   my $line2 = <IF2>;
   
3.   ...
   
4. }

复制代码

rubyish

picbhan 发表于 2013-06-03 17:27
回复 5# raoweijian

学习了！，以前没注意到这种写法。

raoweijian

回复 15# sinian126

1. #!usr/bin/perl -w
   
2. use strict;
   
3. my $if = shift;
   
4. open IF,"<$if";
   
5. open INFO,"<message.info";
   
6. open OF,">$if.scaffold";
   
7. 
   
8. my $tell = 0;
   
9. while(<IF>){
   
10.     next if (/^#/);
    
11.     chomp;
    
12.     my @t = split;
    
13.     seek(INFO,$tell,0);
    
14.     while(<INFO>){
    
15.         chomp;
    
16.         my @c = split;
    
17. #       my $c = @c;print "$c\n";
    
18.         next if(!defined($c[7]));
    
19.         if(($c[1] <= $t[1]) && ($c[2] >= $t[1])){
    
20.             $t[0] = $c[4];
    
21.             $t[1] = $t[1] - $c[1] + $c[5];
    
22.             for my $i (0..8){
    
23.                 print OF "$t[$i]\t";
    
24.             }
    
25.             print OF "$t[9]\n";
    
26.             $tell = tell(INFO) - 1000;
    
27.             last;
    
28.         }
    
29.     }
    
30. }
    

复制代码

txh_zyy

同意楼上各位大侠说的 tell + seek，然后把读到的位置记录到某个文件中，下次先读文件中的位置

picbhan

rubyish 发表于 2013-06-03 21:37
学习了！，以前没注意到这种写法。

你会没见过这种写法？酱油打得太明显了

rubyish

没搞懂为什么 LZ 觉得每次从头读取了

rubyish

回复 18# picbhan

以前没注意到,希望以前 you 见过