perl菜鳥求助，請問這個題目應該怎么寫呀，自己寫了一個可是總是出錯

qinmin23

有一個ko_class.xls文件，現(xiàn)在需要把它的class展開。
文件說明：
>Metabolism ##行首為">"的為A class
@Global and overview maps ##行首為"@"的為B class
01100  Metabolic pathways ##行首為ko號的為C class
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
文件輸出格式:ko\tA class\tB class\tC class\n
如：ko Metabolism Global and overview maps 01100  Metabolic pathways
    ko Metabolism Global and overview maps 01110  Biosynthesis of secondary metabolites
...
    ko Metabolism Carbohydrate metabolism         00010  Glycolysis / Gluconeogenesis
下面是我寫的

#!usr/bin/perl -w
use strict;
open(IN,"ex2");
my %result;
my $lastLnNum = 1;
while ( chomp (my $line = <IN>) ) {
        $line =~ /^(.)(.+)$/;
        $result{$1} = [] unless exists $result{$1};
        push @{$result{$1}}, $2;
        $lastLnNum++;
}
my @idx = (0..$lastLnNum);
my @symOrd = sort keys %result;
foreach my $idx ( @idx) {
        foreach my $sym ( @symOrd ) {
                print "$result{$sym}[$idx]\t";
        }       print $/;
}
結果總是說Use of uninitialized value in concatenation (.) or string at ex2.2 line 16, <IN> 。沒明白
...

Okelani

#!/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

qinmin23

回復 2# Okelani

大神，我還想問一個問題，就是如果我有一個很長的字符串，我想在輸出這個字符串的時候每60個字符串為一行，而不想那個字符串占滿了屏幕的整行再換行，請問怎樣才能做到呀

Okelani

回復 3# qinmin23


my $longString = join '', 'A' .. 'Z';
my $cut = 5;    # 每5個字符串為一行
$longString =~ s/(.{$cut})/$1\n/g;
say $longString;


output:

ABCDE
FGHIJ
KLMNO
PQRST
UVWXY
Z

qinmin23

回復 4# Okelani

謝謝大神，非常正確