perl – 自动调用作为子例程引用的哈希值

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

导读：我有一个散列,其中有一些值不是标量数据,而是返回标量数据的匿名子程序.我想让这对于在哈希中查找值的代码部分完全透明,这样它就不必知道某些哈希值可能是返回标量数据的匿名子例程而不仅仅是普通的标量数据. 为此,有没有办法在访问其密钥时执行匿名子例程,

我有一个散列,其中有一些值不是标量数据,而是返回标量数据的匿名子程序.我想让这对于在哈希中查找值的代码部分完全透明,这样它就不必知道某些哈希值可能是返回标量数据的匿名子例程而不仅仅是普通的标量数据.

为此,有没有办法在访问其密钥时执行匿名子例程,而不使用任何特殊语法？这是一个简化的例子,说明了目标和问题：

#!/usr/bin/perl

my %hash = (
    key1 => "value1",key2 => sub {
        return "value2"; # In the real code,this value can differ
    },);

foreach my $key (sort keys %hash) {
    print $hash{$key} . "n";
}

我想要的输出是：

perl ./test.pl
value1
value2

相反,这就是我得到的：

perl ./test.pl
value1
CODE(0x7fb30282cfe0)

解决方法

有一个叫做“魔术”的功能,允许在访问变量时调用代码.

为变量添加魔法大大减慢了对该变量的访问速度,但有些变量比其他变量更昂贵.

>没有必要访问散列魔法的每个元素,只需要一些值.
>领带是一种更昂贵的魔法形式,这里不需要它.

因此,最有效的解决方案如下：

use Time::HiRes     qw( time );
use Variable::Magic qw( cast wizard );

{
   my $wiz = wizard(
      data => sub { my $code = $_[1]; $code },get => sub { ${ $_[0] } = $_[1]->(); },);

   sub make_evaluator { cast($_[0],$wiz,$_[1]) }
}

my %hash;
$hash{key1} = 'value1';
make_evaluator($hash{key2},sub { 'value2@'.time });

print("$hash{$_}n") for qw( key1 key2 key2 );

输出：

value1
value2@1462548850.76715
value2@1462548850.76721

其他例子：

my %hash; make_evaluator($hash{key},sub { ... });
my $hash; make_evaluator($hash->{$key},sub { ... });

my $x; make_evaluator($x,sub { ... });
make_evaluator(my $x,sub { ... });

make_evaluator(...,sub { ... });
make_evaluator(...,&;some_sub);

您还可以“修复”现有哈希.在哈希散列场景中,

my $hoh = {
   { 
      key1 => 'value1',key2 => sub { ... },...
   },...
);

for my $h (values(%$hoh)) {
   for my $v (values(%$h)) {
      if (ref($v) eq 'CODE') {
         make_evaluator($v,$v);
      }
   }
}

（编辑：李大同）

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