This is the mail archive of the cygwin mailing list for the Cygwin project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

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/


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]