Help for this page

Select Code to Download


  1. or download this
    perl -le "for (0..42){local $!; $! = $_; print 0 + $!, qq( - $!)}"
    
    ...
    41 - Directory not empty
    42 - Illegal byte sequence
    
  2. 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!
    
  3. or download this
    perl -lwe "open my $fh, '>', 'test'; print 0 + $fh; print + $fh"
    
    ...
    ) = 41
    981
    
  4. 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