On Mon, Mar 03, 2008 at 12:04:00AM -0500, Ivan Adzhubey wrote:
> Никто не замечал утечек памяти в перле в последнее время? У меня падает скрипт 
> с Cannot allocate memory, на операции открытия pipe:
> 
> open(PIP, "gunzip -qc $file.gz |")
> 
> Где-то после тысячи файлов в цикле. После прочтения каждого файла все 

$ cd /usr/share/man/man1
$ ls *.gz |wc -l         
1714
$ perl -e 'for $f (<*.gz>) { open P, "gunzip -qc $f |"; print while <P>; close P; }' |wc -c
8494614
$ zcat *.gz |wc -c
8494614
$ 

Может течь в разных местах, но здесь не похоже.

$ perl -e 'system "ps v $$"'
  PID TTY      STAT   TIME  MAJFL   TRS   DRS   RSS %MEM COMMAND
19284 pts/8    R+     0:00      0     2  3681  1396  0.1 perl -e system "ps v $$"
$ perl -e 'for $f (<*.gz>) { open P, "gunzip -qc $f |"; 1 while <P>; close P; } system "ps v $$"'
  PID TTY      STAT   TIME  MAJFL   TRS   DRS   RSS %MEM COMMAND
19300 pts/8    R+     0:00      0     2  3965  2172  0.2 perl -e for $f (<*.gz>) ...
$