Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re^2: recursive creation of attached objects?

by NetWallah (Canon)
on Sep 14, 2012 at 04:54 UTC ( #993635=note: print w/replies, xml ) Need Help??

in reply to Re: recursive creation of attached objects?
in thread recursive creation of attached objects?

Added "depth_test" to your code, and added more lines to main code to make a more interesting structure.

The "value" can track the origination of each node.

use strict; use warnings; { package bin_tree; use strict; use warnings; sub new{ my $class=shift; my $self={value=>shift, a=>undef, b=>undef}; $self->{value}||=0; bless $self, $class; return $self; } sub a{ my ($self, $setval) = @_; $setval or return $self->{a}; return $self->{a} = $setval; } sub b{ my ($self, $setval) = @_; $setval or return $self->{b}; return $self->{b} = $setval; } sub populate{ my($self, $depth, $value)=@_; return if(! $depth); $value ||= $self->{value}; $self->a ( populate( bin_tree->new($value) , $depth -1 ) ); $self->b ( populate( bin_tree->new($value) , $depth -1 ) ); return $self; } sub depth{ my ($self, $level)=@_; $level ||= 1; if (defined $self->a()){ return $self->a()->depth($level + 1); } return $level; } 1; } #end bin_tree package main; my $bintree = bin_tree->new('Initial') -> populate(3); use Data::Dumper; print "BEFORE: " ,Dumper ($bintree),"Depth:",$bintree->depth() ,"\n"; $bintree->a()->a()->populate(2,'Firstlevel') -> b( bin_tree->new('sec +ondlevel')); print "After: ", Dumper ($bintree),"Depth:",$bintree->depth(), "\n";
Update : Minor tweaks - added a() and b() methods. Renamed depth_test(). Changed test structure. populate() allows optional new 'value' param.

             I hope life isn't a big joke, because I don't get it.

Replies are listed 'Best First'.
Re^3: recursive creation of attached objects?
by remiah (Hermit) on Sep 14, 2012 at 13:00 UTC

    Thanks for reply

    I learned I can put header to Dumper ouput with

    print "After:", Dumper $bintree,"\n";
    This is not trivial thing for me. This will help me a lot.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://993635]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2018-01-24 00:16 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (254 votes). Check out past polls.