C to Perl converter by rolf

import re
while 1:
 z=raw_input();s=""
 if z[:2]=="//":s="#"+z[2:]
 if z[:4]==4*" ":s=re.sub(r"^int","my",re.sub(r"\b([abi])\b",r"$\1",z[4:]))
 print s

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page