perl读大文件，显示内存不够，怎么办

白水

我在读apache日志的时候，提示
out of memory during request for 16456 bytes, total sbrk() is 536004608 bytes!

怎么解决呢？日志是400M多，内存是2G
Mem: 627M Active, 567M Inact, 299M Wired, 54M Cache, 112M Buf, 456M Free

福瑞哈哥

把其他进程关掉，不然把日志拷贝到其他机器分析，或者使用其他机器的服务如数据库等。

dajun

不要一下子my @log=<LOG_FD>

wannachan

首先弄明白要干什么,如果是一行一行分析的,可以一行一行的读啊

HonestQiao

这个绝对需要分布读取的。

如果需要处理的步骤多，那么就用文件缓存中间过程。

菜田守望者

看电影时就在想象时间平移是否能用Perl实现，sysseek和seek可以用作文件指针，从文件开始偏移量0开始。
    my $fh = gensym();
    my $buffer;
    sysopen $fh, $file, O_RDONLY
        or die "can't open file $file failed: $!";
    flock $fh, LOCK_EX;
    sysseek $fh, -$seek_bytes, 2   # 指针移动。
        if defined $seek_bytes;
    sysread $fh,$buffer,$read_bytes
        if defined $read_bytes;
    flock $fh, LOCK_UN;
    close $fh;
    return $buffer;