Look at http://freshmeat.net for lsof. I imagine it simply iterates through /proc to find the filehandles opened by each process.

--
perl -pe "s/\b;([st])/'\1/mg"