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

View of /FigKernelScripts/generate_input_for_auto_assignments.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Mon Dec 1 20:46:40 2003 UTC (16 years ago) by efrank
Branch: MAIN
CVS Tags: V00-00-01, merge-trunktag-bobdev_news-2, Root-bobdev_news, merge-bobdev_news-1, caBIG-dataload-0, merge-trunktag-bobdev_news-1, merge-bodev_news-3, efrank-preMakefileToStandardMk, delong-01, delong-02, caBIG-00-00-00, merge-bobdev_news-2, V00-00-00, merge-trunktag-bodev_news-3
Branch point for: Branch-bobdev_news

Makefile:
	get it to work with the release tools

All the rest:
	had to rename foo to foo.pl so that makefiles could recognize
	perl source from, say, Makefiles and READMEs

# usage: generate_input_for_auto_assignments < fasta > ready.for.auto.assign

use FIG;

$/ = "\n>";
while (defined($_ = <STDIN>))
{
    chomp;
    if ($_ =~ /^>?(\S+)([^\n]*\n)(.*)/s)
    {
	$id  =  $1;
	$comment = $2;
	$seq =  $3;
	$seq =~ s/\s//g;
	print "$id\t$seq\n";
    }
    else
    {
	print STDERR "ERROR: $id\n";
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3