请教这个问题出在哪

emperor

输入文件$cprnc_out：
RMS T                                1.6790E-11            NORMALIZED  7.2352E-14
time   (time)  t_index =      3     3
.
.
RMS T                                2.2683E-11            NORMALIZED  9.7748E-14
time   (time)  t_index =      4     4

我的目的是获取NORMALIZED后面的数据： 7.2352E-14  .. 9.7748E-14

while( <$cprnc_out> ) {

    if ( /RMS $var / ) {
        chop;
        my @line = split;
        push @rmsDiff, $line[$#line];
    }
}


for( my $i = 0; $i <= $#nstep; ++$i ) {
    if ( $rmsDiff[$i] == 0. ) { next; }
    print "$nstep[$i] $rmsDiff[$i]\n";
}

结果只打印了7.2352E-14就中止了，请教什么原因，谢谢。

zhlong8

你要表达什么？

数组最后一个元素索引应 -1 就行了，倒数第二个是 -2 类推

MMMIX

回复 1# emperor


     $#nstep 是啥值？$var 是啥值？

sohusina

$#nstep的取值有问题

tc1989tc

代码能跑？

emperor

感谢各位：
nsteph   (time)  t_index =      3     3
RMS T                                1.6790E-11            NORMALIZED  7.2352E-14
time   (time)  t_index =      3     3
.
.
nsteph   (time)  t_index =      4     4
RMS T                                2.2683E-11            NORMALIZED  9.7748E-14
time   (time)  t_index =      4     4

--
my @nstep;
my @rmsDiff;
while( <$cprnc_out> ) {
    if ( /nsteph/ ) {         ------这里我之前写成大写 NSTEPH了
        my @line = split;
        push @nstep, $line[1];
    }
    if ( /RMS $var / ) {
        chop;
        my @line = split;
        push @rmsDiff, $line[$#line];
    }
}


for( my $i = 0; $i <= $#nstep; ++$i ) {
    if ( $rmsDiff[$i] == 0. ) { next; }
    print "$nstep[$i] $rmsDiff[$i]\n";
}
但是现在$nstep[$i]抓到了（time）而不是我需要的index数值，例如3，4.该怎么改？

MMMIX

回复 6# emperor


    直接用 push @nstep, (split)[-1];

emperor

@MMMIX我想index从0开始怎么改？谢谢

emperor

已实现我的预期，非常感谢各位！

tc1989tc

长度减一啊