Perl Special Variables by gmk

e=[""]
z=[?0]
[*33..64,*91..96,*?{..?~].zip(e+[" ","","3"*4]+z+e*2+[[t="1000",t]*" "]*2+e*3+(w=z+e)+["

","test.pl",*e*9," 
-",28.chr,t,"60",t]+w*2+["5.014002","STDOUT_TOP"]+e*3+w+["STDOUT"]).map{|c,v|puts"$"<<c<<?=+v}

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