Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
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.

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
    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 scrutinizing the Monastery: (6)
As of 2016-06-25 07:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...











    Results (323 votes). Check out past polls.