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

Re: "cleaning out" object data

by pelagic (Curate)
on May 20, 2005 at 07:36 UTC ( #458867=note: print w/ replies, xml ) Need Help??


in reply to "cleaning out" object data

How about:

my $self = shift; $self = ();

pelagic


Comment on Re: "cleaning out" object data
Download Code
Re^2: "cleaning out" object data
by Forsaken (Friar) on May 20, 2005 at 07:41 UTC
    That was also my first thought, but that:
    - destroys the object if it isn't referenced elsewhere, or
    - does absolutely nothing if it is still referenced elsewhere.

    Basically, as it turns out, all that does is take the variable $self that previously contained a reference to a blessed object, and gives it a new value, a reference to a newly created anonymous hash. So unless $self was the only reference to the object(which it isn't in my specific case) absolutely nothing happens :-)

    edit: formatting

    Remember rule one...

      Yes, of course, you're absolutely right. So I'm afraid your somewhat unelegant solution is the best we can get.

      pelagic
Re^2: "cleaning out" object data
by polettix (Vicar) on May 20, 2005 at 09:52 UTC
    To obtain the requested effect you'd use rev_1318's solution below, i.e. assigning to %$self and not to $self. Typo?

    Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

    Don't fool yourself.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://458867]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (12)
As of 2014-08-22 08:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (150 votes), past polls