免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2807 | 回复: 2

运行速度 [复制链接]

论坛徽章:
0
发表于 2016-01-08 10:30 |显示全部楼层
各位大神, 我最近写了一小段perl, 但是运行起来速度很慢,怎样才能让它快点, 先谢谢诸位了~
foreach my $mfcn(@mfcns)
{
        my @mfcnumbers;
        my $fh=$mfcn;
        open $fh, ($mfcdir."\\".$mfcn) or die$!;
        while (my $line=<$fh>)
        {
                chomp($line);
                my @linenumbers=split/\t+/,$line;
                push @mfcnumbers,$#linenumbers;               
        }
        my $printline=join" ",@mfcnumbers;
        print NUMF $mfcn." : ".$printline."\n";
        close $fh;
}

论坛徽章:
0
发表于 2016-01-10 09:40 |显示全部楼层
看不出特别需要优化的地方。。

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2016-01-10 14:46 |显示全部楼层
回复 1# TrishaTie

foreach my $mfcn(@mfcns)
{
    open my $fh, ($mfcdir."\\".$mfcn) or die$!;

    print MUMF "$mfcn:";
    while (<$fh>){
        chomp;
        s/\s+/ /g;
        print NUMF $_;
    }
    print NUMF "\n";
    close $fh;
}
   
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP