个人中心
gpt4 book ai didi

windows - 如何更新 Perl 脚本以在 MS Windows 上运行

转载 作者：可可西里 更新时间：2023-11-01 10:38:47 24 4
gpt4 key购买 nike

<分区>

我在 MS Windows 上使用 Strawberry Perl 5.14.2。以下代码在 Linux Perl 5.10.1 上运行良好，但在 MS Windows 上运行失败。我需要更新它才能在两者上运行。

sub read_dict {
    open F, "<:utf8", "$dictfile" || die "Dictonary file $dictfile not found";
    while (<F>) {
        chomp;
        s/^ *//;
        split;
        $freq{$_[1]}  = $_[0];
        $header = substr($_[1],0,$wd);
        if ($freq{"m,$header"}) {
            if ($freq{"m,$header"} < length($_[1])) {
                $freq{"m,$header"} = length($_[1]);
            }
        } else {
            $freq{"m,$header"} = length($_[1]);
        }
        $freq{total} += $_[0];
    }
    close(F);
}

它在 MS Windows 上查找并解析 $dictfile，但未能累积 $freq{total}，这会导致其他地方出现被零除错误。 $dictfile 是一个加权字典，其数据如下所示:

8 永垂不朽
8 震耳欲聋
85 罗马里奥
891 澳大利亚
9 埃芬贝格

我在两个平台之间进行的故障排除表明它在拆分时失败了；或以下行，但我对 Perl 的了解还不够，无法修复它。是否需要更改代码，或者我应该使用特定的命令行选项启动 Perl？

谢谢。

24 4 0
文章推荐： windows - Windows 框上的 nodejs 上的 persistence.js
文章推荐： javascript - 基于关闭条件的文档中各个字段的聚合计数
文章推荐： php - preg_replace()，未找到结束分隔符 '$'
文章推荐： javascript - 在文档中查找、更新和返回数组对象 (mongodb)
可可西里
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com