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

View of /FigKernelScripts/fix_ext_funcs.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Thu Jun 16 18:27:08 2005 UTC (14 years, 5 months 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
routines to support derivation of sprout data

#
# If a line contains two tabs, and the second tab is followed by an EC number, the 
# second tab becomes a space.  Else, the second tab and anything following it get deleted.

while (defined($_ = <STDIN>))
{
    $_ =~ s/(\t.*)\t(\(EC .*\S)/$1 $2/;
    $_ =~ s/(\t.*)\t.*$/$1/;
    print $_;
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3