Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: Perl parser tortured (was: Perl Idioms Explained)

by dada (Chaplain)
on Mar 02, 2004 at 16:12 UTC ( #333293=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    sub deref { my $ref = shift; return $$ref; }
  2. or download this
    sub deref { ${$_[0]} }
  3. or download this
    sub deref { ${shift} }
  4. or download this
    sub deref { ${shift@_} } # too much explicit
    sub deref { ${+shift} }  # supersticious? cfr. Roger
    sub deref { ${shift;} }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://333293]
[atcroft]: PriNet: Those code bits worked for me, with test hashes, but I didn't test it with more than a few simple test cases. *shrug* Had hoped it would help, at least.
[PriNet]: i think i found the problem, the "source" array that sets the individual key values isn't being cleared, it's keeping the previous values...
[atcroft]: PriNet: You might consider posting a small, self-contained snippet of that segment of your code, and see if someone else has a better idea.....
[atcroft]: PriNet: Ahhh... interesting.

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2017-06-28 03:14 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (619 votes). Check out past polls.