perl 提取大文件紧急求救

Doubleben

UID: 22817
帖子: 20
积分: 46
在线时间: 10 分钟

1^# Doubleben 发表于 2008-10-20 20:16

perl 提取大文件紧急求救

本人要处理一个3.5G的文件，就是把其中的行（行号已知）提取出来处理。
比如说我要提取14978234-14978238行，能否有快的提取方法？十分感谢！

machine

UID: 43012
帖子: 185
积分: 425
在线时间: 1 天 22 小时

2^# machine 发表于 2008-10-20 20:27

#!perl -w

open FILE,"file.txt" or die "open file error!";
$start=123456;＃开始行
$end=123499;＃结束行
$i=0;
$^I =".bak";
while(<FILE>) {
   $i++;
      next if $i<$start;
      last  if  $i>$end;
      print ;
}
close FILE;

Osment

UID: 20892
帖子: 1
积分: 2
在线时间: 10 分钟

3^# Osment 发表于 2008-10-20 22:33

my $start=123456;＃开始行
my $end=123499;＃结束行
while (<FILE>) {
print if $start .. $end;
}

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

4^# ynchnluiti 发表于 2008-10-21 01:09

每行长度不等的话，不好用seek

iceberg77

UID: 40334
帖子: 131
积分: 301
在线时间: 23 小时

5^# iceberg77 发表于 2008-10-21 11:34

如果知道文件的总行数，要查找的行又比较靠文件尾，
可以先用seek到文件尾，然后往回找
会比较快，否则用2、3楼的方法还是比较直接