[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.1 - (download) (as text) (annotate)
Sat May 7 20:57:47 2005 UTC (15 years, 1 month ago) by overbeek
Branch: MAIN
add routines for BigFC

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

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

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3