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

Annotation of /FigKernelScripts/svr_tips_of_tree.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : overbeek 1.1 ########################################################################
2 :     #! /usr/bin/perl -w
3 :     #
4 :     # svr_tips_of_tree -- Extracts the tips from a file containing trees
5 :     #
6 :    
7 :    
8 :     use strict;
9 :     use Data::Dumper;
10 :     use gjonewicklib;
11 :    
12 :    
13 :    
14 :     =head1 svr_tips_of_tree
15 :    
16 :     =head2 Introduction
17 :    
18 :     svr_tips_of_tree < tree(s) > tips
19 :    
20 :     Reads a file of one or more trees in Newick format and returns the tips.
21 :    
22 :     =head3 Output Format
23 :    
24 :     The generated HTML document is written to STDOUT.
25 :    
26 :     =cut
27 :    
28 :    
29 :     my @trees = &gjonewicklib::read_newick_trees;
30 :    
31 :     my %tips = map{ $_ => 1 } map { &gjonewicklib::newick_tip_list($_) } @trees;
32 :    
33 :     foreach $_ (sort { lc $a cmp lc $b } keys(%tips))
34 :     {
35 :     print "$_\n";
36 :     }
37 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3