如何让Perl接受负数作为命令行参数？

Question

有没有办法让Perl避免将负值视为命令行开关？无论是字符串化也不backslashing的说法似乎在Linux下的帮助：

$ perl -e 'print "@ARGV\n";' 4 5 
    4 5 

$ perl -e 'print "@ARGV\n";' -4 5 
    Unrecognized switch: -4 (-h will show valid options). 

$ perl -e 'print "@ARGV\n";' "-4" 5 
    Unrecognized switch: -4 (-h will show valid options). 

$ perl -e 'print "@ARGV\n";' '-4' 5 
    Unrecognized switch: -4 (-h will show valid options). 

$ perl -e 'print "@ARGV\n";' \-4 5 
    Unrecognized switch: -4 (-h will show valid options). 

Answer 1

$ perl -E "say join ', ', @ARGV" -- -1 2 3 
-1, 2, 3 

诀窍是使用双连字符（--）结束选项解析。 Double-hyphen is a GNU convention：

$ touch -a 
usage: touch [-acfm] [-r file] [-t [[CC]YY]MMDDhhmm[.SS]] file ... 
$ touch -- -a 
$ ls 
-a