¿Cómo puedo hacer que Perl acepte números negativos como argumentos de línea de comandos?

Question

¿Hay alguna manera de evitar que Perl trate los valores negativos como conmutadores de línea de comandos? Ni stringifying ni backslashing el argumento parece ayudar en 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 

El truco está utilizando el doble guión (--) para terminar el análisis de las opciones. Double-hyphen is a GNU convention:

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