Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

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

Updated:
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
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
    D:\programs\indigoperl\bin\perl.exe
    
    so it doesn't just copy the name you called perl with, off the command line.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2014-08-28 04:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (256 votes), past polls