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

View of /FigKernelScripts/compute_simple_scores.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (download) (as text) (annotate)
Tue May 31 12:51:09 2005 UTC (15 years ago) by overbeek
Branch: MAIN
Changes since 1.1: +2 -2 lines
fixes to filtering PCHs

$usage = "usage: compute_simple_scores MinSc < filtered.pchs > scored";
($minsc = shift @ARGV)
    || die $usage;

while (defined($_ = <STDIN>) && ($_ !~ /\t0$/)) {}
while ($_ && ($_ =~ /^(\S+\t\S+)/))
{
    $curr = $1;
    $n = 0;
    while ($_ && ($_ =~ /^(\S+\t\S+)/) && ($1 eq $curr))
    {
	$n++;
	while (defined($_ = <STDIN>) && ($_ !~ /\t0$/)) {}
    }

    if ($n >= $minsc)
    {
	print "$curr\t$n\n";
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3