- or download this
perl -le "for (0..42){local $!; $! = $_; print 0 + $!, qq( - $!)}"
...
41 - Directory not empty
42 - Illegal byte sequence
- or download this
perl -wle "use strict; for my $x(@ARGV){ print qq(I was: $x); print qq
+(adding 1 I'm: ),$x + 1; print $x > 0 ? qq(I'm more than zero! ) : qq
+(I'm less than or zero! ); print $\ }" 0z 42A
...
adding 1 I'm: 43
I'm more than zero!
- or download this
perl -lwe "open my $fh, '>', 'test'; print 0 + $fh; print + $fh"
...
) = 41
981
- or download this
perl -we "print ++$_ for 'I@OG+' =~ /./g"
Argument "@" isn't numeric in preincrement (++) at -e line 1.
Argument "+" treated as 0 in increment (++) at -e line 1.
J1PH1