seek tell

摇摆蝶仙

data 1
-----------------------
11   20
21   30
31   40
41   50
51   60
...
---------------------
data 2
------------------
19
21
23
49
-------------

需要遍历data1，2。其中data1是区间范围，需要标注data2在data1哪个区间。这个都好办，但是希望通过seek tell的方式，两个while嵌套，其中因为data1和2都是排序过的，所以为了程序高效，在data1中标注过的区间之前的区间不再遍历搜索。也就是如果data2中21已经搜索过21到30的区间，那么到了23的时候就从21到30开始往后遍历而不去搜索11到20的区间。貌似seek和tell的配合可以解决。但是我试了一下不太会弄，我大概是这样写的：请高手赐教。谢谢

while(<data2>){
seek data1,$position,0;
while(<data1>){
$position=tell;
}
}

摇摆蝶仙

或者说如果不用seek，能否实现，while的时候按照具体行开始循环呢，比如第一次循环从文本第1行开始，第二次循环根据需要从第n行开始，第三次循环从第m行开始。如果每次都从第1行开始难免浪费时间

lpnueg4

1，你要的结果是什么样的？怎么标注？
2，文件大小？小的话可以读到内存操作。
3，输出到新文件还是原文件？

摇摆蝶仙

回复 3# lpnueg4


    你好，结果是怎么样的都行，重点是希望遍历的时候不要每次都从头遍历。希望从当前位置开始往后遍历。同样的输出到新旧文件也都无所谓。文件大概不到1G的数据吧。

jason680

回复 1# 摇摆蝶仙

didn't use seek and tell if your data sorted already

$ perl get_range.pl
19 in 11 to 20
21 in 21 to 30
23 in 21 to 30
49 in 41 to 50


$ cat get_range.pl
use strict;
use warnings;

open(data1, "<data1") or die "can't open data1\n";
open(data2, "<data2") or die "can't open data2\n";

my($sMin, $sMax) = ("","");
while(<data2>){
  chomp;
  next  if(m/^\s*$/);
  if($sMin eq "" or $sMax < $_){
    DATA1:
    while (my $sData = <data1>){
      chomp $sData;
      next DATA1 if($sData =~ m/^\s*$/);
      my @aData = split(/\s+/,$sData);
      if(@aData != 2){
        die  "get error: $sData\n";
      }
      ($sMin, $sMax) = @aData;
      #print "$_,$sMin,$sMax\n";
      next DATA1 if($sMax < $_);
      if($sMin > $_){
        die "$_ cannot match the range in data1\n";
      }
      last DATA1;
    }
   
  }
  if( $sMin <= $_ and $_ < $sMax){
    print "$_ in $sMin to $sMax\n";
  }
}
close;