Help for this page

Select Code to Download


  1. or download this
    perl -e 'open TEST,"."; do {( -d TEST )?print "1$/" : print "0$/";}'
1
  2. or download this
    perl -e 'open TEST,"." && do {( -d TEST )?print "1$/":print "0$/";}'
0
  3. or download this
    perl -e 'open TEST,"." and do {( -d TEST )?print "1$/": print "0$/";}'
1