Help for this page

Select Code to Download


  1. or download this
    system( q[ perl -E"exit 1;" ] ); print $? >> 8;;
1
...

system( q[ perl -E"exit 123;" ] ); print $? >> 8;;
123
  2. or download this
    system( q[ perl -E"exit -123;" ] ); print $? >> 8;;
133
...

system( q[ perl -E"exit -129;" ] ); print $? >> 8;;
127
  3. or download this
    system( q[ perl -E"exit -1;" ] ); print $? >> 8;;
Can't spawn " perl -E"exit -1;" ": No error at (eval 26) line 1, <STDI
+N> line 19.
255
  4. or download this
    system( q[ perl -E"exit 12345;" ] ); print $? >> 8;;
57

system( q[ perl -E"exit 123456789;" ] ); print $? >> 8;;
21