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

View of /FigKernelScripts/split_clean_unclean_families.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Fri Mar 31 19:37:40 2006 UTC (13 years, 8 months ago) by overbeek
Branch: MAIN
next version of the STAG code

$_ = <STDIN>;
while (defined($_) && ($_ =~ /^(\S+)\t\S+\t(\S+)/))
{
    $curr = $1;
    $func = $2;
    $ok = 1;
    @set = ();
    while ($_ && ($_ =~ /^(\S+)\t\S+\t(\S+)/) && ($1 eq $curr))
    {
	if ($2 ne $func)
	{
	    $ok = 0;
	}
	push(@set,$_);
	$_ = <STDIN>;
    }
    
    if ($ok)
    {
	print join("",@set);
    }
    else
    {
	print STDERR join("",@set);
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3