[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.2 - (download) (as text) (annotate)
Wed Apr 12 13:10:38 2006 UTC (13 years, 8 months ago) by overbeek
Branch: MAIN
Changes since 1.1: +2 -2 lines
fixes to making assignments based on consistency

$_ = <STDIN>;
while (defined($_) && ($_ =~ /^(\S+)\t\S+\t(\S.*\S)/))
{
    $curr = $1;
    $func = $2;
    $ok = 1;
    @set = ();
    while ($_ && ($_ =~ /^(\S+)\t\S+\t(\S.*\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