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

Annotation of /FigKernelScripts/possibly_truncated.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : overbeek 1.1 use FIG;
2 :     my $fig = new FIG;
3 :    
4 :     # usage: possibly_truncated [-v] < PEG > PEG
5 :    
6 :     $v = ((@ARGV > 0) && ($ARGV[0] =~ /^-v/i));
7 :    
8 :     while ($_ = <STDIN>)
9 :     {
10 :     if (($_ =~ /(fig\|\d+\.\d+\.peg\.\d+)$/) &&
11 :     ($id = $1) &&
12 :     (($v && (! $fig->possibly_truncated($id))) ||
13 :     ((! $v) && $fig->possibly_truncated($id))))
14 :     {
15 :     print $_;
16 :     }
17 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3