X-Spam-Check-By:	sourceware.org
content-class:	urn:content-classes:message
MIME-Version:	1.0
Subject:	cygwin Perl 5x slower than ActiveState?
Date:	Mon, 24 Apr 2006 10:52:42 -0500
Message-ID:	<12E580AADCB6964B994BB3106FA6A68AB8D107@nova.austin.intera.com>
From:	"Neil E. Deeds" <ndeeds AT intera DOT com>
To:	<cygwin AT cygwin DOT com>
Mailing-List:	contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe:	<mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive:	<http://sourceware.org/ml/cygwin/>
List-Post:	<mailto:cygwin AT cygwin DOT com>
List-Help:	<mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender:	cygwin-owner AT cygwin DOT com
Mail-Followup-To:	cygwin AT cygwin DOT com
Delivered-To:	mailing list cygwin AT cygwin DOT com
X-MIME-Autoconverted:	from quoted-printable to 8bit by delorie.com id k3OFx5ca004301

I am having I/O performance issues with Cygwin perl.  For example (where
"c/Perl/bin/perl" is the activestate version):

-------------------------------------

ndeeds AT hal9000 ~/lcra/models/opt$ perl -v

This is perl, v5.8.7 built for cygwin-thread-multi-64int
(with 1 registered patch, see perl -V for more detail)

ndeeds AT hal9000 ~/lcra/models/opt$ /cygdrive/c/Perl/bin/perl -v

This is perl, v5.8.8 built for MSWin32-x86-multi-thread
(with 25 registered patches, see perl -V for more detail)

ndeeds AT hal9000 ~/lcra/models/opt
$ time perl test.pl

real    0m9.266s
user    0m8.780s
sys     0m0.109s

ndeeds AT hal9000 ~/lcra/models/opt
$ time /cygdrive/c/Perl/bin/perl test.pl

real    0m2.266s
user    0m0.015s
sys     0m0.000s

ndeeds AT hal9000 ~/lcra/models/opt
$ cat test.pl
#!/bin/perl

open(OUTFIL,">test.out");
foreach $i (1..50000) {
   foreach $j (1..10) {
        $ary[$j-1] = rand 1;
   }
   printf OUTFIL (("%15.7e"x10)."\n",@ary); 
}
close(OUTFIL);

ndeeds AT hal9000 ~/lcra/models/opt$ 

------------------------------------

The test.pl code looks a little weird because I was doing a line by line
comparison to a Fortran code (which runs in <1 sec, btw).

Anyone have an idea as to why Perl runs this code so much slower under
Cygwin?

Cheers,

Ed.

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/

- Raw text -