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

Annotation of /FigKernelScripts/fix_ext_funcs.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : overbeek 1.1 #
2 :     # If a line contains two tabs, and the second tab is followed by an EC number, the
3 :     # second tab becomes a space. Else, the second tab and anything following it get deleted.
4 :    
5 :     while (defined($_ = <STDIN>))
6 :     {
7 :     $_ =~ s/(\t.*)\t(\(EC .*\S)/$1 $2/;
8 :     $_ =~ s/(\t.*)\t.*$/$1/;
9 :     print $_;
10 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3