Help for this page

Select Code to Download


  1. or download this
    perl -we'open FOO, "/dev/null";$x=<FOO>; print scalar $x'
    perl -we'open FOO, "/dev/null"; print <FOO>'
    
  2. or download this
    perl -we'open FOO, "/dev/null"; $x=<FOO>; print $x+2'
    perl -we'open FOO, "/dev/null"; $x=2+<FOO>; print $x'
    
  3. or download this
    perl -we'open FOO, "/dev/null"; print defined <FOO>'