Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: File::Temp painfully slow under Cygwin

by Laurent_R (Monsignor)
on Jul 09, 2013 at 18:49 UTC ( #1043361=note: print w/ replies, xml ) Need Help??

in reply to File::Temp painfully slow under Cygwin

It may not help very much, but I just tried your command under Cygwin, Win 7 and 8 cores (in other words, a configuration very similar to what you have). First call and second one:

Laurent@Laurent-HP ~ $ time /usr/bin/perl -e 'use File::Temp' real 0m0.763s user 0m0.108s sys 0m0.139s Laurent@Laurent-HP ~ $ time /usr/bin/perl -e 'use File::Temp' real 0m0.164s user 0m0.093s sys 0m0.062s

Comment on Re: File::Temp painfully slow under Cygwin
Download Code
Replies are listed 'Best First'.
Re^2: File::Temp painfully slow under Cygwin
by dds (Novice) on Jul 09, 2013 at 20:32 UTC
    Thank you. The problem could then be an installation issue. What do you get by running the following?
    find /usr/lib/perl5/ -name Cwd.dll
    In my case the file does not exist, and this may explain the problem.
      My contribution from a Toshiba NB305 Netbook 1.66GHz with 2GB RAM, running WinXP:
      $ uname -a CYGWIN_NT-5.1 minime 1.7.20(0.266/5/3) 2013-06-07 11:11 i686 Cygwin $ perl -v This is perl 5, version 14, subversion 2 (v5.14.2) built for cygwin-th +read-multi-64int (with 7 registered patches, see perl -V for more detail) Copyright 1987-2011, Larry Wall <output truncated> $ time /usr/bin/perl -e 'use File::Temp' real 0m0.469s user 0m0.358s sys 0m0.125s $ time /usr/bin/perl -e 'use File::Temp' real 0m0.438s user 0m0.249s sys 0m0.202s
      ...and the search for Cwd.dll returned nothing.

      I initially ran this earlier and the "real" time was just over two seconds, but that was the slowest it recorded.

      Hope this helps!

      Does not seem to exist either.

      Laurent@Laurent-HP ~ $ find /usr/lib/perl5/ -name Cwd.dll Laurent@Laurent-HP ~

        Does not seem to exist either.

        Check this way

        $ perl -MCwd -le " print for grep /Cwd/, %:: " Cwd:: *main::Cwd:: _<C:/citrusperl/lib/auto/Cwd/Cwd.dll *main::_<C:/citrusperl/lib/auto/Cwd/Cwd.dll _<Cwd.c *main::_<Cwd.c

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1043361]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2015-10-13 13:16 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (307 votes), past polls