Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: representing a tree graphically...

by clemburg (Curate)
on Jan 09, 2002 at 21:13 UTC ( #137496=note: print w/replies, xml ) Need Help??

in reply to representing a tree graphically...

OK, after looking at your sample output I realize this is not what you need ... but anyway, for those that have a similar need (visualizing tree structures) let me point out GraphViz, the Perl interface to the GraphViz tool.

With GraphViz installed, making a little nice postscript (could be PNG, too, or whatever you can postscript convert too) image of your treepath input from above (assumed to be in file try.txt below) becomes as easy as this little shell script:

echo 'digraph G { concentrate = true; ' > cat try.txt | perl -lane '$F[2] =~ s/:000//g; $F[2] =~ s/:/ -> /g; $F[ +2] .= ";"; print $F[2] if $F[2] =~ /->/' >> echo '}' >> dot -Tps -o

Where file try.txt is:

1 => 001:000:000 2 => 001:002:000 3 => 001:003:000 4 => 001:003:004 5 => 001:002:005

Christian Lemburg
Brainbench MVP for Perl

Replies are listed 'Best First'.
Re: Re: representing a tree graphically...
by merlyn (Sage) on Jan 09, 2002 at 21:40 UTC

      I stand corrected.

      Christian Lemburg
      Brainbench MVP for Perl

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (1)
As of 2021-10-23 03:40 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (86 votes). Check out past polls.