bio_script.pl

my ($type, $search_term) = @ARGV;
$file = 'parsed_tax_name.txt';

sub get_tax_id_or_name{
    open(FILE, "<$file") or
     die("Could not open log file. $!\n");
   
    while(<FILE>) {
    	if ($type eq "-t" and $_ =~ /$search_term\|(.*)/){
        	return $1;
      	}elsif ($type eq "-n" and $_ =~ /(\d*)\|$search_term.*/){
      		return $1;
      	}
   	}
}
print get_tax_id_or_name() , "\n"