in reply to Re: Re: Re: Re: Re: Re: Portability question: Is there something like '#ifdef' in Perl?
in thread Portability question: Is there something like '#ifdef' in Perl?

Apparently you missed what I was saying (or I wasn't clear enough). Try this
C:\>more foo bar baz.pl Cannot access file C:\foo C:\>more "foo bar baz.pl" print "foo bar baz.pl says hi"; C:\>perl my @args = ( $^X, 'foo bar baz.pl' ); warn " while going through the shell ret = ".system "@args"; warn " while avoding the shell ret = ".system {$args[0]} @args; __END__ Can't open perl script "foo": No such file or directory while going through the shell ret = 512 at - line 2. foo bar baz.pl says hi while avoding the shell ret = 0 at - line 3.
See that special form of system? It completely avoids the shell, meaning, if $args[1] eq "ab cd ef" , then $args[0] (in this case $^X, ie perl), gets a single argument, just as if you said perl "ab cd ef". Read `perldoc -f exec' for the full details.

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

  • Comment on Re: Re: Re: Re: Re: Re: Re: Portability question: Is there something like '#ifdef' in Perl?
  • Select or Download Code