From owner-freebsd-questions Thu Jan 31 19:35: 4 2002 Delivered-To: freebsd-questions@freebsd.org Received: from cody.jharris.com (cody.jharris.com [205.238.128.83]) by hub.freebsd.org (Postfix) with ESMTP id CDF5037B402 for ; Thu, 31 Jan 2002 19:35:00 -0800 (PST) Received: from localhost (nick@localhost) by cody.jharris.com (8.11.1/8.9.3) with ESMTP id g113dLq46820; Thu, 31 Jan 2002 21:39:22 -0600 (CST) (envelope-from nick@rogness.net) Date: Thu, 31 Jan 2002 21:39:21 -0600 (CST) From: Nick Rogness X-Sender: nick@cody.jharris.com To: Steven A Cc: freebsd-questions@FreeBSD.ORG Subject: Re: PERL way too slow on cat operation; me wonders what is going on In-Reply-To: <20020131212634.A13452@abyss.cs.uchicago.edu> Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Sender: owner-freebsd-questions@FreeBSD.ORG Precedence: bulk List-ID: List-Archive: (Web Archive) List-Help: (List Instructions) List-Subscribe: List-Unsubscribe: X-Loop: FreeBSD.ORG On Thu, 31 Jan 2002, Steven A wrote: > hi, > > first of all, my uname -a: FreeBSD oberon.cs.uchicago.edu 4.4-RELEASE > FreeBSD 4.4-RELEASE #0: Tue Sep 18 11:57:08 PDT 2001 > murray@builder.FreeBSD.org:/usr/src/sys/compile/GENERIC i386 > > > now: > > the following perl script takes 8 minutes to execute on both of my > freebsd systems (two AMD K6-2 300s): > > cat 80megfile.ps > perl cat.pl > output.ps > > cat.pl: > while($_ = ) { > print $_; > } try cat.pl as: $|=1; while () { print $_; } Nick Rogness - Don't mind me...I'm just sniffing your packets To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-questions" in the body of the message