如何讓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