如何使用对象引用来引用受祝福的代码块？

Question

#!/usr/bin/perl

my $obj = bless do { \( my $scalar = 123; ) }, 'Some::Class';

我怎样才能$scalar使用 来获取值$obj？

我尝试过很多方法，但都没有成功。

Answer 1

这不是一个幸运的代码块。这是对标量的一个有福的引用。

您可以使用以下方法获取值“123”：

$$obj