Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: Using File::Find to find drive (Win32)

by idsfa (Vicar)
on Oct 23, 2003 at 21:23 UTC ( #301728=note: print w/ replies, xml ) Need Help??

in reply to Using File::Find to find drive (Win32)

If you're not married to File::Find...

use Config; print $Config{prefix},$/;

assuming that by 'Perl' you mean the directory where your perl was installed. If you mean the binary, use the perlpath key instead. pod

You cannot rely upon ^X, because you are assuming certain builds of perl when you do so. CygWin acts as Unix:

$ uname CYGWIN_NT-5.0 $ perl -e 'print $^X,$/;' perl $ /usr/bin/perl -e 'print $^X,$/;' /usr/bin/perl

(Thanks to tye and bart for clarifying which perls show this behaviour.)

Remember, when you stare long into the abyss, you could have been home eating ice cream.

Comment on Re: Using File::Find to find drive (Win32)
Select or Download Code
Replies are listed 'Best First'.
Re: Re: Using File::Find to find drive (Win32)
by bart (Canon) on Oct 23, 2003 at 21:34 UTC
    That still sounds a bit too hard to me. Why not just examine $^X? This command line:
    perl -le "print $^X"
    which, for me, prints
    so it doesn't just copy the name you called perl with, off the command line.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://301728]
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: (11)
As of 2015-12-01 12:52 GMT
Find Nodes?
    Voting Booth?

    My keyboard shows this many letters:

    Results (9 votes), past polls