請(qǐng)教這個(gè)問題出在哪

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后面的數(shù)據(jù)： 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";
}

結(jié)果只打印了7.2352E-14就中止了，請(qǐng)教什么原因，謝謝。

zhlong8

你要表達(dá)什么？

數(shù)組最后一個(gè)元素索引應(yīng) -1 就行了，倒數(shù)第二個(gè)是 -2 類推

MMMIX

回復(fù) 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";
}
但是現(xiàn)在$nstep[$i]抓到了（time）而不是我需要的index數(shù)值，例如3，4.該怎么改？

MMMIX

回復(fù) 6# emperor


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

emperor

@MMMIX我想index從0開始怎么改？謝謝

emperor

已實(shí)現(xiàn)我的預(yù)期，非常感謝各位！

tc1989tc

長(zhǎng)度減一啊