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

View of /FigKernelScripts/CSA_filter_unique.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (download) (as text) (annotate)
Mon Jun 27 17:13:58 2011 UTC (8 years, 4 months ago) by overbeek
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, rast_rel_2014_0912, myrast_rel40, rast_rel_2014_0729, mgrast_release_3_1_2, mgrast_release_3_1_1, rast_rel_2011_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_10262011, HEAD
Changes since 1.1: +3 -0 lines
make part of myRAST distribution

use strict;
#
# This is a SAS Component
#
use Data::Dumper;

my $last = <STDIN>;
while (defined($last) && ($last =~ /^(\S+)/))
{
    my $kmer = uc $1;
    my $_ = <STDIN>;
    if ((! $_) || (($_ =~ /^(\S+)/) && (uc $1 ne $kmer)))
    {
	print $last;
	$last = $_;
    }
    else
    {
	print STDERR $last;
	print STDERR $_;
	while (defined($last = <STDIN>) && ($last =~ /^(\S+)/) && (uc $1 eq $kmer))
	{
	    print STDERR $last;
	}
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3