我问这个问题是因为我终于解决了一个问题,我一直试图在许多情况下找到一种技术。我认为它非常简洁,所以我正在对此进行问答。
看,如果我可以使用 eval
,我会这样做:
eval join( "\n"
, map {
my $v = $valcashe{$_};
sprintf( '$Text::Wrap::%s = %s', $_
, ( looks_like_number( $v ) ? $v : "'$v'" )
)
}
);
Text::Wrap::wrap( '', '', $text );
我什至试图变得棘手,但似乎
local
将符号本地化到虚拟块,而不是物理块。所以这不起作用:ATTR_NAME: while ( @attr_names ) {
no strict 'refs';
my $attr_name = shift;
my $attr_name = shift @attr_names;
my $attr_value = $wrapped_attributes{$attr_name};
my $symb_path = "Text\::Wrap\::$attr_name";
local ${$symb_path} = $attr_value;
next ATTR_NAME if @attr_names;
Text::Wrap::wrap( '', '', $text );
}
相同的物理块,我在设置前后测试了包变量,它们甚至在循环中显示了正确的时间值。但测试表明,只有最后一个变量通过的变量保留了它对
wrap
的调用的值。 .所以值只保持本地化直到循环结束。我认为解决方案很简洁——即使是神秘的 perl 魔法。但最终结果是好的,因为这意味着我可以包装依赖于包范围变量的遗留代码,并确保设置的值尽可能短。
最佳答案
斧王,你这个白痴!包 stash 也是一个哈希值!这有效:
local @Text::Wrap::{ keys %wrapped_attributes }
= \( values %wrapped_attributes )
;
这将执行以下操作:
Text::Wrap
的数组切片的符号表并返回命名的符号。 \( ... )
语法为列表中的每个项目传回一个引用。 所以我们本地化
%wrapped_attributes
中每个键的每个变量,我们为它的每个值分配一个引用。它既丑陋又神秘,每次我需要它时都很难将它移开——但是有了它,我可以预先指定并延迟定位以选择我可以放置 Damien Conway 建议的带刺铁丝网和危险的地方迹象。
如果我要使用它,它必须在我使用它的地方丑陋。
关于perl - 你如何在没有 eval 的情况下本地化一些遗留的全局变量?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1540539/