[Bio] / FigTutorial / show_functional_coupling.pl Repository:
ViewVC logotype

Annotation of /FigTutorial/show_functional_coupling.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (view) (download) (as text)

1 : overbeek 1.1 use FIG;
2 :     my $fig = new FIG;
3 :     use strict;
4 :    
5 :     my($usage,$bound,$sim_cutoff,$fc_cutoff,@fc,$tuple,$peg);
6 :    
7 : olson 1.2 $usage = "usage: show_functional_coupling Bound SimCutoff FcCutOff < PEGs > PEG1-Sc-PEGs";
8 : overbeek 1.1
9 :     (
10 :     ($bound = shift @ARGV) &&
11 :     ($sim_cutoff = shift @ARGV) &&
12 :     ($fc_cutoff = shift @ARGV)
13 :     )
14 :     || die $usage;
15 :    
16 :     while (defined($_ = <STDIN>))
17 :     {
18 :     if ($_ =~ /^(fig\|\d+\.\d+\.peg\.\d+)/)
19 :     {
20 :     $peg = $1;
21 :     @fc = $fig->coupling_and_evidence($peg,$bound,$sim_cutoff,$fc_cutoff);
22 :     foreach $tuple (@fc)
23 :     {
24 :     # print &Dumper($tuple);
25 :     print "$peg\t$tuple->[0]\t$tuple->[1]\n";
26 :     }
27 :     }
28 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3