忘记密码   免费注册 查看新帖 | 论坛精华区

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT HPC论坛 徽章 文库 沙龙 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 2674 | 回复: 3

perl语言中foreach数组 [复制链接]

论坛徽章:
0
发表于 2016-01-16 18:38 |显示全部楼层
想请教个问题,关于foreach输出有重复的。
比如,我写了一个perl脚本。

use strict;
use POSIX qw(strftime);
my $time = strftime("%Y-%m-%d %H:%M:%S",localtime(time));
...
foreach my $result (@result){
            open (FILE,">>$path" or die "ERROR:Can't write to!";
                #print $time;
                print FILE "$time|$result\n";
                close FILE;
}

我在foreach的时候,将结果print到某个文件中。但是我很郁闷的是,当我运行脚本的时候,$time的内容在文件中出现了2次,而$result正常只有一次输出。
就想请教一下,为什么$time的内容传递到foreach会有2次重复的输出?
然后怎样才可以避免这样的重复输出?


小弟刚写perl不久,是不是我没有注意到哪些应该注意到的地方?尤其是在foreach的时候,是不是遗漏了什么东西?
求教,谢谢!!

论坛徽章:
26
金牛座
日期:2014-09-15 15:59:16程序设计版块每日发帖之星
日期:2015-11-24 06:20:00程序设计版块每日发帖之星
日期:2015-11-25 06:20:0015-16赛季CBA联赛之新疆
日期:2015-12-19 19:05:48IT运维版块每日发帖之星
日期:2015-12-25 06:20:31IT运维版块每日发帖之星
日期:2015-12-25 06:20:31IT运维版块每日发帖之星
日期:2015-12-25 06:20:3315-16赛季CBA联赛之上海
日期:2016-04-15 19:51:31程序设计版块每日发帖之星
日期:2016-04-17 06:23:29程序设计版块每日发帖之星
日期:2016-04-23 06:20:00程序设计版块每日发帖之星
日期:2016-05-26 06:20:00每日论坛发贴之星
日期:2016-05-26 06:20:00
发表于 2016-01-16 21:29 |显示全部楼层
无标题.png
就一次呢

论坛徽章:
0
发表于 2016-01-18 15:30 |显示全部楼层
可能是因为我脚本里面的数组是push进来的原因?
  while (my $ref = $sth->fetchrow_hashref()) {
   chomp;
   push @result, "$ref->{'sum(num)'}";回复 2# shijiang1130


   

论坛徽章:
0
发表于 2016-02-03 10:01 |显示全部楼层
chomp后边什么都不接的话默认是$_,而你本身想要去换行的并不是$_, 还有你open file 为什么要写到foreach里边,这样重复操作打开关闭效果也不好。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP