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

Annotation of /FigKernelScripts/mark_genome_as_phage.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : redwards 1.1 #__perl__
2 :    
3 :     # mark a genome as a phage. We basically set the virus_type attribute and add a PHAGE file
4 :    
5 :     use strict;
6 :     use FIG;
7 :     my $fig=new FIG;
8 :    
9 :     my $genome = shift || die "Genome ID?";
10 :     open(OUT, ">$FIG_Config::organisms/$genome/PHAGE") || die "can't touch file $FIG_Config::organisms/$genome/PHAGE";
11 :     print OUT "phage ", $fig->genus_species($genome), "\n";
12 :     close OUT;
13 :    
14 :     $fig->add_attribute($genome, "virus_type", "Phage");
15 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3