问大家一个问题，当读取一个超过100万行文本文件时

小星2

UID: 38977
帖子: 113
积分: 259
在线时间: 17 小时

11^# 小星2 发表于 2008-08-24 18:33

QUOTE:

原帖由 andylei 于 2008-8-22 08:43 发表
open(F,"file")

while ()
{
...... #what you want to do!
}

你用@list = 这样把整个文件都直接读进内存，很慢的。用while()是一行一行循环读该文件中没行纪录，会快很多。

谢谢。我想读第 1000行到 2000行，这个怎么表达？

小星2

UID: 38977
帖子: 113
积分: 259
在线时间: 17 小时

12^# 小星2 发表于 2008-08-24 18:34

QUOTE:

原帖由 flw 于 2008-8-21 13:04 发表
man split

split -l 1 /path/to/urfile

有点高深，看不懂。

我想读取第1000，到第2000行，怎么处理？

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

13^# ly5066113 发表于 2008-08-24 18:42

QUOTE:

原帖由小星2 于 2008-8-24 18:34 发表

有点高深，看不懂。

我想读取第1000，到第2000行，怎么处理？

split 是 shell 命令，大家在猜你要做什么。

while (<F>){
print if $. >= 1000 && $. <= 2000
}

andylei

UID: 1924
帖子: 33
积分: 75
在线时间: 1 小时

14^# andylei 发表于 2008-08-25 16:15

QUOTE:

原帖由小星2 于 2008-8-24 18:33 发表

谢谢。我想读第 1000行到 2000行，这个怎么表达？

自己写个子例程吧：

sub read_file
{
my $file_name = @_[0];
my @file_list = undef;

open (FILE,"$file_name");
while (<FILE>)
{
      push(@file_list,$_);
}
close (FILE);

   for (my $i=1000;$i < 2000;$i++)
{
      print @file_list[$i];
}

}

&read_file("./xxx");

我暂时只能想到这个方法，如果有哪位高手能有好的方法希望共享一下，谢谢了。因为觉得这个方法如果文件大的话可能会慢。

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

15^# forlorngenius 发表于 2008-08-25 16:18

13 楼的不是写的很简捷了嘛

sleetdrop

UID: 44336
帖子: 120
积分: 276
在线时间: 20 小时

16^# sleetdrop 发表于 2008-08-25 17:38

嗯，很多人都是被迫用perl写东西，然后就有了很多类型C风格的perl代码了。

waya_waya

UID: 34729
帖子: 48
积分: 110
在线时间: 3 小时

17^# waya_waya 发表于 2008-08-27 18:04

说的好，不过至少不难看。