Mercurial > repos > ucsb-phylogenetics > osiris_phylogenetics

comparison phylostatistics/tree_species.pl @ 0:5b9a38ec4a39 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First commit of old repositories
author osiris_phylogenetics <ucsb_phylogenetics@lifesci.ucsb.edu>
date Tue, 11 Mar 2014 12:19:13 -0700
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:5b9a38ec4a39
1 #!/usr/bin/perl
2 use strict;
3
4 my $infile=$ARGV[0];
5 my $treefile=$ARGV[1];
6
7 open IN, $infile or die "Cannot open $infile\n";
8 open TREE, $treefile or die "Cannot open $treefile\n";
9
10 my $tree = <TREE>;
11 close(TREE);
12
13 while(<IN>){
14 my $curspecies = $_;
15 chomp($curspecies);
16 $curspecies =~ s/ /\_/g ;
17 if($tree =~ m/$curspecies/){
18 #match
19 }else{
20 print $curspecies."\n";
21 }
22 }