in reply to Testing a command line argument

try:
if ( $ARGV[1] =~ (/^ALL|0)$/i) )
Ive noticed that when using 'eq' it likes to use '' instead of //. So try swapping the eq to =~

Replies are listed 'Best First'.
Re^2: Testing a command line argument
by choroba (Cardinal) on Dec 10, 2015 at 17:46 UTC
    That's wrong.
    Unmatched ) in regex; marked by <-- HERE in m/^ALL|0) <-- HERE $/
    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
A reply falls below the community's threshold of quality. You may see it by logging in.