Perl Special Variables by Jakzo

for(i=0;k="!\"#$%&'()*+,-./0123456789:;<=>?@[\\]^_`{|}~"[i];)print("$"+k+"="+([," ",,3333,z="0",,,x=(t=1e3)+" "+t,x,,,,z,,"\n","test.pl",,,,,,,,,," \n-","\x1c",t,60,t,z,,z,,5.014002,"STDOUT_TOP",,,,z,,"STDOUT"][i++]||""))

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

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page