[Bio] / FigKernelScripts / tips_of.pl Repository:
ViewVC logotype

Annotation of /FigKernelScripts/tips_of.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (view) (download) (as text)

1 : overbeek 1.1
2 :     use tree_utilities;
3 :    
4 :     $usage = "usage: tips_of Tree";
5 :    
6 :     ($newick = shift @ARGV)
7 :     || die $usage;
8 :    
9 :     if ($tree = &tree_utilities::parse_newick_tree(join("",`cat $newick`)))
10 :     {
11 :     $tips = &tips_of_tree($tree);
12 :     foreach $tip (sort @$tips)
13 :     {
14 :     print "$tip\n";
15 :     }
16 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3