perl菜鸟求助，请问这个题目应该怎么写呀，自己写了一个可是总是出错

qinmin23

有一个ko_class.xls文件，现在需要把它的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

谢谢大神，非常正确