通过值传递vs传递Perl哈希的引用

发布时间：2020-12-15 23:35:52 所属栏目：大数据来源：网络整理

导读：我正在使用子程序来制作一些不同的哈希映射.我目前正在通过引用传递hashmap,但是多次执行时会出现这种情况.我应该按值传递哈希值还是传递哈希引用？ use strict;use warnings;sub fromFile($){ local $/; local our %counts =(); my $string = $_[0]; open F

我正在使用子程序来制作一些不同的哈希映射.我目前正在通过引用传递hashmap,但是多次执行时会出现这种情况.我应该按值传递哈希值还是传递哈希引用？

use strict;
use warnings;

sub fromFile($){
    local $/;
    local our %counts =();
     my $string = <$_[0]>;
    open FILE,$string or die $!;
    my $contents = <FILE>;
    close FILE or die $!;

    my $pa = qr{
        ( pL {2} )
        (?{
            if(exists $counts{lc($^N)}){
                $counts{lc($^N)} = $counts{lc($^N)} + 1;
            }
            else{
                $counts{lc($^N)} = '1';
            }
        })
        (*FAIL)
    }x;

     $contents =~ $pa;

    return %counts;

}

sub main(){
    my %english_map = &fromFile("english.txt");
    #my %german_map = &fromFile("german.txt");
}

main();

当我单独运行不同的txt文件时,我没有遇到任何问题,但两者都有一些冲突.

解决方法

出于几个原因,您应该使用pass-by-reference,但是您显示的代码会按值返回哈希值.

>除了内置变量(如$/)之外,您应该使用my而不是local,然后才能使用尽可能小的范围.
>子程序的原型几乎不是一个好主意.他们做了非常具体的事情,如果你不知道那是什么,你就不应该使用它们.
>使用&符号来调用子程序,就像在& fromFile(“english.txt”)中一样,自从大约二十年前的Perl 4以来就不正确.它以至少两种不同的方式影响传递给子程序的参数,这是一个坏主意.
>我不确定为什么要使用带有$string =< $_ [0]>的文件glob.您是否期望在作为参数传递的文件名中使用通配符？如果是这样,那么你将打开并只读取第一个匹配的文件,否则不需要glob.
>像$fh这样的词法文件句柄比像FILE这样的裸字文件句柄更好,并且在它们被销毁时会隐式关闭 – 通常在声明它们的块的末尾.
>我不确定您的哈希值计数是如何填充的.没有正则表达式可以填补哈希值,但我必须相信你！

试试这个版本.熟悉Perl的人会感谢你(具有讽刺意味的是！)没有使用驼峰式变量名.并且很少看到声明和调用的主子例程.那是C,这是Perl.

更新我已更改此代码以执行原始正则表达式所做的操作.

use strict;
use warnings;

sub from_file {

    my ($filename) = @_;

    my $contents = do {
        open my $fh,'<',$filename or die qq{Unable to open "$filename": $!};
        local $/;
        my $contents = <$fh>;
    };

    my %counts;
    $counts{lc $1}++ while $contents =~ /(?=(pL{2}))/g;

    return %counts;
}

sub main {
    my $english_map = from_file('english.txt');
    my $german_map  = from_file('german.txt');
}

main();

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!