大侠们看看这个问题该怎么处理

qq27898

回复 7# mcshell


    猛然看到[@line]它，我想起了TCL，最近再学习，都有点神经衰弱了，不过比较喜欢你的代码 跟着你的足迹学习中

。。。。

mcshell

回复 10# newfinder


    while部分换成

1. while (<DATA>) {
   
2.     chomp;
   
3.     /([A-Z]+)\d+\s+(.*)/;
   
4.     my @line = unpack "A4" x (length($2)/3),$2;
   
5.      $element_num = $#line;
   
6.     push @{ $n->{$1} }, [@line];
   
7. }

复制代码

mcshell

回复 11# qq27898


    好好学习，天天向上{:3_198:}

qq27898

回复 13# mcshell