Put it on the symbol table


Syntactic Confectionery Delight
	PerlMonks

Put it on the symbol table

by cog (Parson)

on Apr 30, 2005 at 17:13 UTC ( [id://452891]=obfuscated: print w/replies, xml )

Need Help??

A bit of symbol table handling:

package _;sub _{$k?',':$"};sub __{for(sort grep!/_/&&$$_,keys%_::){pri
+nt"$_$$_"}
print"@{[_]}"}$J="u";$/=$s="t";&__;sub ____{for(2,3){&{'_'x$_}}}&___;$
+an="o$/";$
he="r";&____;$P="e";$r="l";&____;$ha="c";$k="er";&__;sub ___{$$_=$,for
+ keys%_::}
[download]

If you want it to be educative, try to understand why I'm using a different package rather than main.

Comment on Put it on the symbol table Download Code

Replies are listed 'Best First'.
Re: Put it on the symbol table by jdalbec (Deacon) on May 01, 2005 at 02:58 UTC
Because using `main` makes the code longer? `sub _{$k?',':$"};sub __{for(sort grep!/[@_\0-0\@_]\|.../&&$$_,keys %::){print"$_$$_"}print"@{[_]}"}$J="u";$/=$s="t";&__;sub ____{for (2,3){&{'_'x$_}}}&___;$an="o$/";$he="r";&____;$P="e";$r="l";&____ ;$ha="c";$k="er";&__;sub ___{$$_=$,for grep!/["\/\$+\"]/,keys%::}` [download]	[reply] [d/l] [select]
Re^2: Put it on the symbol table by cog (Parson) on May 01, 2005 at 21:56 UTC
Surely you mean "using `main` takes extra code" :-) I was aiming, with my comment, for people to remove that part, see what would happen, and try to understand why.	[reply] [d/l]

Back to Obfuscated Code

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: obfuscated [id://452891]
Approved by ktross
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others examining the Monastery: (2)

As of 2024-04-25 05:39 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found