I think that the most secure way of finding a true fopen is (using
regular expressions):

  (^|[^0-9A-Za-z])fopen($|[^0-9A-Za-z])

  I think that there's a shortcut in perl for [^0-9A-Za-z] but I don't
remember which it was.

-- 
main(i,_){for(_?--i,main(i+2,"FhhQHFIJD|FQTITFN]zRFHhhTBFHhhTBFysdB"[i]
):_;i&&_>1;printf("%s",_-70?_&1?"[]":" ":(_=0,"\n")),_/=2);} /*- Warp -*/

Post a reply to this message