Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Put it on the symbol table

by cog (Parson)
on Apr 30, 2005 at 17:13 UTC ( #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%_::}

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

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%::}
      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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://452891]
Approved by ktross
[stevieb]: Torturing one of my dev RPis to turn four 5v stepper motors at the same time (via Parallel:: ForkManager for 50k degrees (a whole lot of full turns!). Let's see if it burns out or not.
[stevieb]: My GPIO expander chips should arrive tomorrow, but I think I'll throw a shift register against them and see if all six I have will turn at once. Amps are near the breaking point, but I want to know max sustainable V and I output.

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2018-03-22 22:16 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (286 votes). Check out past polls.