我有一个 perl 例程,它从一个 .csv 文件中生成一个散列。应在子程序中检查这些值。
所以我有一个散列%my_values
并调用子程序check (\%my_values)
:
sub read_csv {
...
# key: headline entry
# value: the value in the current row
%my_hash;
...
my ($has_error, $err_msg) = check (\%my_hash);
}
sub check {
my($hash_ref) = @_;
%my_hash = %$hash_ref;
# Get the artikel number of the article
$my_hash {'article_number'} = get_artnr($my_hash {'article'});
if (not $my_hash{'article_number'}) {
return 1, "Article $my_hash{'article'} not found!";
}
# check price (I'm in germany, there must be a conversation from ',' to '.')
$my_hash {'price'} =~ s/,/./;
if (not $my_hash{'price'} =~ m/^\d+(\.\d+)?$/) {
return 1, "Invalid format of price";
}
return 0, "";
}
起初,这似乎工作正常。但后来我意识到,价格格式既没有改变,也没有关键article_number
可用。
直接在参考文献上工作使它:
# In this case, it works!
sub check {
my($hash_ref) = @_;
# Get the artikel number of the article
$hash_ref->{'article_number'} = get_artnr($hash_ref->{'article'});
if (not $hash_ref->{'article_number'}) {
return 1, "Article $hash_ref->{'article'} not found!";
}
# check price (I'm in germany, there must be a conversation from ',' to '.')
$hash_ref->{'price'} =~ s/,/./;
if (not $hash_ref->{'price'} =~ m/^\d+(\.\d+)?$/) {
return 1, "Invalid format of price";
}
return 0, "";
}
所以我认为%my_hash = %$hash_ref;
复制引用而不是取消引用。
如何像在调用例程中一样取消引用子例程中的散列?
下面是使用所谓的新特征的示例refaliasing在Perl 5.22(任选地与所述组合引入declared_refs在5.26特征引入)
use v5.26;
use warnings; # IMPORTANT: this line must come before "use experimental"
use strict;
use feature qw(say);
use experimental qw(declared_refs refaliasing);
{ # <-- introduce scope to avoid leaking lexical variables into subs below
my %hash = (a=>1, b=>2);
check(\%hash);
say "Value of 'a' key is now: ", $hash{a};
}
sub check {
my (\%hash) = @_;
$hash{a} = 3;
}
输出:
Value of 'a' key is now: 3
或者,您可以使用箭头运算符:
sub check {
my ($hash) = @_;
$hash->{a} = 3;
}
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句