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?
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.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.
|
|---|