Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

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.

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]
[Discipulus]: ah ah! welcome back marto!
[Corion]: Hi marto and Discipulus!
[marto]: 2 weeks holiday :)
[usemodperl]: greetings

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (10)
As of 2018-06-20 08:46 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (116 votes). Check out past polls.