- 论坛徽章:
- 0
|
#!/usr/bin/perl
my ( $ko, @class ) = "ko\t";
while (<DATA>) {
if (/^\d/) {
print $ko, @class, $_;
next;
}
chomp;
my $X = /^@/;
$class[$X] = substr( $_, 1 ) . "\t";
}
__DATA__
>Metabolism
@Global and overview maps
01100 Metabolic pathways
01110 Biosynthesis of secondary metabolites
01120 Microbial metabolism in diverse environments
01200 Carbon metabolism
01210 2-Oxocarboxylic acid metabolism
01212 Fatty acid metabolism
01230 Biosynthesis of amino acids
01220 Degradation of aromatic compounds
@Carbohydrate metabolism
00010 Glycolysis / Gluconeogenesis
00020 Citrate cycle (TCA cycle)
00030 Pentose phosphate pathway
00040 Pentose and glucuronate interconversions
00051 Fructose and mannose metabolism
00052 Galactose metabolism
00053 Ascorbate and aldarate metaboliusm
00500 Starch and sucrose metabolism
00520 Amino sugar and nucleotide sugar metabolism
00620 Pyruvate metabolism
|
|