Mercurial > repos > ucsb-phylogenetics > osiris_phylogenetics

comparison orthologs/evolmap_output_exclude.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
3 my $input = $ARGV[0];
4 my $excludeList = $ARGV[1];
5
6 my @species = split(/,/, $excludeList);
7
8 open(INPUT, $input);
9 open(OUTPUT, '>'."output.txt");
10 while(my $currLine = <INPUT>) {
11 my @currentLine = split(/\t/, $currLine);
12 my $flag = 0;
13 for(my $i = 0; $i < @species; $i++) {
14 if($species[$i] eq $currentLine[0]) {
15 $flag = 1;
16 }
17 }
18 if($flag == 0) {
19 print OUTPUT $currLine;
20 }
21 }
22 close(OUTPUT);
23 close(INPUT);