[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.3 - (download) (as text) (annotate)
Tue May 31 14:05:18 2005 UTC (15 years, 1 month ago) by overbeek
Branch: MAIN
CVS Tags: merge-trunktag-bobdev_news-2, Root-bobdev_news, merge-bobdev_news-1, caBIG-dataload-0, merge-trunktag-bobdev_news-1, merge-bodev_news-3, caBIG-00-00-00, merge-bobdev_news-2, merge-trunktag-bodev_news-3
Branch point for: Branch-bobdev_news
Changes since 1.2: +2 -2 lines
fixes to computing coupling scores

$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