From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Mon, 3 Mar 2008 17:46:42 +0300
From: Alexey Tourbin <at@altlinux.ru>
To: sisyphus@lists.altlinux.org
Message-ID: <20080303144642.GZ32305@solemn.turbinal>
Mail-Followup-To: sisyphus@lists.altlinux.org
References: <200803030004.00372.iadzhubey@rics.bwh.harvard.edu>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="6ysXqiu0yoUmUNJB"
Content-Disposition: inline
In-Reply-To: <200803030004.00372.iadzhubey@rics.bwh.harvard.edu>
Subject: Re: [sisyphus] Perl memory leaks?
X-BeenThere: sisyphus@lists.altlinux.org
X-Mailman-Version: 2.1.10b3
Precedence: list
Reply-To: ALT Linux Sisyphus discussions <sisyphus@lists.altlinux.org>
List-Id: ALT Linux Sisyphus discussions <sisyphus.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/sisyphus>
List-Post: <mailto:sisyphus@lists.altlinux.org>
List-Help: <mailto:sisyphus-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Mon, 03 Mar 2008 14:45:54 -0000
Archived-At: <http://lore.altlinux.org/sisyphus/20080303144642.GZ32305@solemn.turbinal/>
List-Archive: <http://lore.altlinux.org/sisyphus/>
List-Post: <mailto:sisyphus@altlinux.ru>


--6ysXqiu0yoUmUNJB
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

On Mon, Mar 03, 2008 at 12:04:00AM -0500, Ivan Adzhubey wrote:
> =EE=C9=CB=D4=CF =CE=C5 =DA=C1=CD=C5=DE=C1=CC =D5=D4=C5=DE=C5=CB =D0=C1=CD=
=D1=D4=C9 =D7 =D0=C5=D2=CC=C5 =D7 =D0=CF=D3=CC=C5=C4=CE=C5=C5 =D7=D2=C5=CD=
=D1? =F5 =CD=C5=CE=D1 =D0=C1=C4=C1=C5=D4 =D3=CB=D2=C9=D0=D4=20
> =D3 Cannot allocate memory, =CE=C1 =CF=D0=C5=D2=C1=C3=C9=C9 =CF=D4=CB=D2=
=D9=D4=C9=D1 pipe:
>=20
> open(PIP, "gunzip -qc $file.gz |")
>=20
> =E7=C4=C5-=D4=CF =D0=CF=D3=CC=C5 =D4=D9=D3=D1=DE=C9 =C6=C1=CA=CC=CF=D7 =
=D7 =C3=C9=CB=CC=C5. =F0=CF=D3=CC=C5 =D0=D2=CF=DE=D4=C5=CE=C9=D1 =CB=C1=D6=
=C4=CF=C7=CF =C6=C1=CA=CC=C1 =D7=D3=C5=20

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

=ED=CF=D6=C5=D4 =D4=C5=DE=D8 =D7 =D2=C1=DA=CE=D9=C8 =CD=C5=D3=D4=C1=C8, =CE=
=CF =DA=C4=C5=D3=D8 =CE=C5 =D0=CF=C8=CF=D6=C5.

$ 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>) ...
$=20

--6ysXqiu0yoUmUNJB
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.8 (GNU/Linux)

iEYEARECAAYFAkfMD1IACgkQfBKgtDjnu0ZjxgCgvIt8vhoVkBt/Zc00Z8SP0pA6
lOcAniI2iqvviENdnsVWDLPhSI5DK0BL
=djFM
-----END PGP SIGNATURE-----

--6ysXqiu0yoUmUNJB--