From owner-freebsd-ports Wed Mar 13 15:37:45 2002 Delivered-To: freebsd-ports@freebsd.org Received: from albatross.prod.itd.earthlink.net (albatross.mail.pas.earthlink.net [207.217.120.120]) by hub.freebsd.org (Postfix) with ESMTP id 9A3A437B41F; Wed, 13 Mar 2002 15:37:28 -0800 (PST) Received: from sdn-ar-007dcwashp248.dialsprint.net ([63.178.90.138] helo=moo.holy.cow) by albatross.prod.itd.earthlink.net with esmtp (Exim 3.33 #1) id 16lIJC-0003sg-00; Wed, 13 Mar 2002 15:37:27 -0800 Received: by moo.holy.cow (Postfix, from userid 1001) id 6BB2350B81; Wed, 13 Mar 2002 18:39:43 -0500 (EST) Date: Wed, 13 Mar 2002 18:39:43 -0500 From: parv To: "Raistlin A. Majere" Cc: freebsd-questions@FreeBSD.ORG, f-ports Subject: Re: slow perl string concats on FreeBSD 4.5 Message-ID: <20020313233943.GA56194@moo.holy.cow> Mail-Followup-To: "Raistlin A. Majere" , freebsd-questions@FreeBSD.ORG, f-ports Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Sender: owner-freebsd-ports@FreeBSD.ORG Precedence: bulk List-ID: List-Archive: (Web Archive) List-Help: (List Instructions) List-Subscribe: List-Unsubscribe: X-Loop: FreeBSD.org i lost the last message in which raistlin a. m. resolved the problem by using perl supplied malloc. so for context see... http://groups.google.com/groups?hl=en&selm=3C8F3F2F.D6B46631%40e-raist.com.lucky.freebsd.questions i can only say that that worked here too. previously the script was producing times around 52-57 seconds (~14000 page faults), now it finishes in 6-7 seconds (~250 page fault)... ... freebsd malloc, vmstat -w 2... procs memory page disks faults cpu r b w avm fre flt re pi po fr sr ad0 md0 in sy cs us sy id 1 0 0 116872 24408 57 0 0 0 47 7 0 0 245 690 72 2 1 98 1 0 0 118872 22408 10368 0 0 0 10116 0 0 0 231 201 65 82 18 0 1 0 0 107256 23376 11566 0 0 0 11709 0 0 0 229 198 67 78 22 0 1 0 0 109900 20736 12411 0 0 0 12103 0 0 0 229 173 65 79 21 0 1 0 0 107988 22652 12749 0 0 0 13008 0 0 0 229 180 65 75 25 0 ...perl supplied malloc... procs memory page disks faults cpu r b w avm fre flt re pi po fr sr ad0 md0 in sy cs us sy id 0 0 0 114828 25548 57 0 0 0 47 7 0 0 245 690 72 2 1 98 0 0 0 114828 25548 3 0 0 0 0 0 16 0 258 1481 349 9 1 90 1 0 0 118088 24280 175 0 0 0 9 0 24 0 266 1687 408 61 2 37 1 0 0 109112 22148 268 0 0 0 0 0 0 0 229 182 76 100 0 0 1 0 0 113584 20024 267 0 0 0 0 0 0 0 229 143 63 100 0 0 0 0 0 104180 25548 191 0 0 0 870 0 0 0 230 244 76 67 1 32 ...i built perl from the ports after editing work/perl-5.6.1/Configure. keep the configure options as they are and apply the patch (Wrong Thing To Do) to avoid answering questions & still use perl supplied malloc. - parv # diff -u work/perl-5.6.1/Configure Configure --- work/perl-5.6.1/Configure Sun Mar 18 22:03:33 2001 +++ Configure Wed Mar 13 18:30:36 2002 @@ -5886,11 +5886,11 @@ echo " " case "$usemymalloc" in ''|[yY]*|true|$define) dflt='y' ;; -*) dflt='n' ;; +*) dflt='y' ;; esac rp="Do you wish to attempt to use the malloc that comes with $package?" . ./myread -usemymalloc="$ans" +usemymalloc="y" case "$ans" in y*|true) usemymalloc='y' -- To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-ports" in the body of the message