in reply to is there are global perl variable with
But that's not entirely accurate. You should add quotes around each element in @ARGV, and quotemeta() them.# create such a thing BEGIN { ${^CMDLINE} = "$0 @ARGV" }
This variable will then be as global as @ARGV and $0.BEGIN { ${^CMDLINE} = join ' ', $0, map "'\Q$_\E'", @ARGV }
_____________________________________________________
Jeff[japhy]Pinyan:
Perl,
regex,
and perl
hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;
|
|---|