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

小星2

1^# 小星2 发表于 2008-08-21 12:49

怎么办？

open (F, "$file");
@list=<F>;
close(F);

这样会慢死人的。但是必须得读出来，然后每一行都作为数据都写入一个小文件哦，怎么处理好？

churchmice

2^# churchmice 发表于 2008-08-21 12:50

[Copy to clipboard] [ - ]

CODE:

while (<F>){
...
}

cobrawgl

3^# cobrawgl 发表于 2008-08-21 13:00

QUOTE:

然后每一行都作为数据都写入一个小文件哦

什么意思？

flw

4^# flw 发表于 2008-08-21 13:04

man split

split -l 1 /path/to/urfile

forlorngenius

5^# forlorngenius 发表于 2008-08-21 13:40

split 最好了

johnrobbet

6^# johnrobbet 发表于 2008-08-21 13:49

一行一行的读

andylei

7^# andylei 发表于 2008-08-22 08:43

open(F,"file")

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

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

chenzq1604

8^# chenzq1604 发表于 2008-08-22 15:44

QUOTE:

原帖由小星2 于 2008-8-21 12:49 发表
怎么办？

open (F, "$file");
@list=;
close(F);

这样会慢死人的。但是必须得读出来，然后每一行都作为数据都写入一个小文件哦，怎么处理好？

直接一口气读到内存中，你的内存会爆的，也是perl不推荐的，while循环是很好的方法

lujx

9^# lujx 发表于 2008-08-22 20:19

一百万行都读到内存里，如果是PC机，一下就玩完了。

forlorngenius

10^# forlorngenius 发表于 2008-08-22 21:24