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

View of /FigKernelScripts/process_genomes.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Wed Aug 3 18:43:13 2011 UTC (8 years, 3 months ago) by disz
Branch: MAIN
CVS Tags: rast_rel_2014_0912, rast_rel_2014_0729, mgrast_release_3_1_2, rast_rel_2011_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_10262011, HEAD
Format new genomes for the Daily SEED

use Data::Dumper;


#cd /vol/public-pseed/FIGdisk/FIG/Data/Organisms/
#for i in *; do stat --printf %y\\t%n\\t $i/GENOME>> ~/foo; cat $i/GENOME >> ~/foo; done


#input is tail sorted foo
while (<STDIN>) {
	chomp;
	my ($a, $b, $c) = split("\t");
	$a =~ /(\d+-\d+).+/;
	$date = $1;
	$b =~ /(.+)\//;
	if (length($c) > 30) {
		$c = substr($c, 0, 27) . "...";
	}
	print $date . "\t" . make_genome_link($1) . "\t" . $c . "<br>\n";
}

sub make_genome_link {
	  my ($id) = @_;
	  return "<a href='http://pubseed.theseed.org/linkin.cgi?genome=$id' target='_blank'>$id</a>";
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3