This is the mail archive of the
cygwin
mailing list for the Cygwin project.
cygwin Perl 5x slower than ActiveState?
- From: "Neil E. Deeds" <ndeeds at intera dot com>
- To: <cygwin at cygwin dot com>
- Date: Mon, 24 Apr 2006 10:52:42 -0500
- Subject: cygwin Perl 5x slower than ActiveState?
I am having I/O performance issues with Cygwin perl. For example (where
"c/Perl/bin/perl" is the activestate version):
-------------------------------------
ndeeds@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@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@hal9000 ~/lcra/models/opt
$ time perl test.pl
real 0m9.266s
user 0m8.780s
sys 0m0.109s
ndeeds@hal9000 ~/lcra/models/opt
$ time /cygdrive/c/Perl/bin/perl test.pl
real 0m2.266s
user 0m0.015s
sys 0m0.000s
ndeeds@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@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/