免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 3540 | 回复: 12

请教这个问题出在哪 [复制链接]

论坛徽章:
0
发表于 2015-09-14 20:01 |显示全部楼层
输入文件$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就中止了,请教什么原因,谢谢。

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2015-09-14 21:17 |显示全部楼层
你要表达什么?

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

论坛徽章:
95
程序设计版块每日发帖之星
日期:2015-09-05 06:20:00程序设计版块每日发帖之星
日期:2015-09-17 06:20:00程序设计版块每日发帖之星
日期:2015-09-18 06:20:002015亚冠之阿尔艾因
日期:2015-09-18 10:35:08月度论坛发贴之星
日期:2015-09-30 22:25:002015亚冠之阿尔沙巴布
日期:2015-10-03 08:57:39程序设计版块每日发帖之星
日期:2015-10-05 06:20:00每日论坛发贴之星
日期:2015-10-05 06:20:002015年亚冠纪念徽章
日期:2015-10-06 10:06:482015亚冠之塔什干棉农
日期:2015-10-19 19:43:35程序设计版块每日发帖之星
日期:2015-10-21 06:20:00每日论坛发贴之星
日期:2015-09-14 06:20:00
发表于 2015-09-14 21:17 |显示全部楼层
本帖最后由 MMMIX 于 2015-09-14 21:20 编辑

回复 1# emperor


     $#nstep 是啥值?$var 是啥值?

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2015-09-14 21:20 |显示全部楼层
$#nstep的取值有问题

论坛徽章:
16
CU十二周年纪念徽章
日期:2013-10-24 15:41:3415-16赛季CBA联赛之广东
日期:2015-12-23 21:21:55青铜圣斗士
日期:2015-12-05 10:35:30黄金圣斗士
日期:2015-11-26 20:42:16神斗士
日期:2015-11-19 12:47:50每日论坛发贴之星
日期:2015-11-18 06:20:00程序设计版块每日发帖之星
日期:2015-11-18 06:20:002015亚冠之城南
日期:2015-11-10 19:10:492015亚冠之萨济拖拉机
日期:2015-10-28 18:47:282015亚冠之柏太阳神
日期:2015-08-30 17:21:492015亚冠之山东鲁能
日期:2015-07-07 18:48:39摩羯座
日期:2014-08-29 23:01:42
发表于 2015-09-14 22:18 |显示全部楼层
代码能跑?

论坛徽章:
0
发表于 2015-09-14 23:06 |显示全部楼层
感谢各位:
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.该怎么改?

论坛徽章:
95
程序设计版块每日发帖之星
日期:2015-09-05 06:20:00程序设计版块每日发帖之星
日期:2015-09-17 06:20:00程序设计版块每日发帖之星
日期:2015-09-18 06:20:002015亚冠之阿尔艾因
日期:2015-09-18 10:35:08月度论坛发贴之星
日期:2015-09-30 22:25:002015亚冠之阿尔沙巴布
日期:2015-10-03 08:57:39程序设计版块每日发帖之星
日期:2015-10-05 06:20:00每日论坛发贴之星
日期:2015-10-05 06:20:002015年亚冠纪念徽章
日期:2015-10-06 10:06:482015亚冠之塔什干棉农
日期:2015-10-19 19:43:35程序设计版块每日发帖之星
日期:2015-10-21 06:20:00每日论坛发贴之星
日期:2015-09-14 06:20:00
发表于 2015-09-14 23:56 |显示全部楼层
回复 6# emperor


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

论坛徽章:
0
发表于 2015-09-15 00:07 |显示全部楼层
@MMMIX我想index从0开始怎么改?谢谢

论坛徽章:
0
发表于 2015-09-15 00:25 |显示全部楼层
已实现我的预期,非常感谢各位!

论坛徽章:
16
CU十二周年纪念徽章
日期:2013-10-24 15:41:3415-16赛季CBA联赛之广东
日期:2015-12-23 21:21:55青铜圣斗士
日期:2015-12-05 10:35:30黄金圣斗士
日期:2015-11-26 20:42:16神斗士
日期:2015-11-19 12:47:50每日论坛发贴之星
日期:2015-11-18 06:20:00程序设计版块每日发帖之星
日期:2015-11-18 06:20:002015亚冠之城南
日期:2015-11-10 19:10:492015亚冠之萨济拖拉机
日期:2015-10-28 18:47:282015亚冠之柏太阳神
日期:2015-08-30 17:21:492015亚冠之山东鲁能
日期:2015-07-07 18:48:39摩羯座
日期:2014-08-29 23:01:42
发表于 2015-09-15 00:26 |显示全部楼层
长度减一啊
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

SACC2021中国系统架构师大会

【数字转型 架构重塑】2021年5月20日-22日第十三届中国系统架构师大会将在云端进行网络直播。

大会为期3天的议程,涉及20+专场,近120个主题,完整迁移到线上进行网络直播对会议组织来说绝非易事;但考虑到云端会议的直播形式可以实现全国各地技术爱好者的参与,也使ITPUB作为技术共享交流平台得到更好的普及,我们决定迎难而上。
http://sacc.it168.com/


大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP