If you want a tree, why don't you use a real tree structure?
Tree::DAG_Node is meant for cases like this one.
#!/usr/bin/perl -w
use strict;
use Tree::DAG_Node;
my $org = Tree::DAG_Node->new; # the root
$org->name('Office of President'); # name it
$org->new_daughter->name('Recruiting'); # first dept
my $sw = Tree::DAG_Node->new; # new dept
$org->add_daughter($sw); # add to root
$sw->name('Software'); # name it
$sw->new_daughter->name('MIS'); # add sub-depts
$sw->new_daughter->name('System Operations');
$org->new_daughter->name('Pipe line'); # one more dept
print map "$_\n", @{$org->draw_ascii_tree},"\n";
print $org->dump_names;
__END__
output:
|
<Office of President>
/-------------------+------------------\
| | |
<Recruiting> <Software> <Pipe line>
/------------\
| |
<MIS> <System Operations>
'Office of President'
'Recruiting'
'Software'
'MIS'
'System Operations'
'Pipe line'
You can also build a tree on the fly, from an existing list of lists. Notice that in this case the root is at the bottom (as in botanical trees ;-) )
my $tree =
[
[ 'Recruiting' ],
[
[ 'MIS' ], [ 'System Operations' ],
'Software'
],
[ 'Pipe line' ],
'Office of President'
];
my $org = Tree::DAG_Node->lol_to_tree($tree);
For more examples, see Introduction to Tree::DAG_Node in Tutorials.
Update Added code comments.
_ _ _ _
(_|| | |(_|><
_|
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.