Date: Wed, 13 Mar 2002 18:39:43 -0500 From: parv <parv_@yahoo.com> To: "Raistlin A. Majere" <raistlin@preston.pinemeadowgolf.com> Cc: freebsd-questions@FreeBSD.ORG, f-ports <freebsd-ports@freebsd.org> Subject: Re: slow perl string concats on FreeBSD 4.5 Message-ID: <20020313233943.GA56194@moo.holy.cow>
next in thread | raw e-mail | index | archive | help
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
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20020313233943.GA56194>