[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.3 - (download) (as text) (annotate)
Wed Apr 12 14:13:26 2006 UTC (13 years, 7 months ago) by overbeek
Branch: MAIN
Changes since 1.2: +7 -4 lines
fixes for splitting families into clean/unclean

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