如何创建一个在不同标量上下文中返回不同值的对象？

Question

我想在字符串上下文和数字上下文中返回不同的值，例如 $! 确实如此。 我知道我可以通过 WantArray 找出我是处于列表上下文还是标量上下文中，但是纯 Perl 中有没有办法确定我处于哪个标量上下文中？ 我认为 XS 中也有答案，如果无法在纯 Perl 中做到这一点，我愿意接受该答案。

Answer 1

查看 Scalar::Util 模块，特别是 dualvar() 函数：

use Scalar::Util qw(dualvar);

my $scalar = dualvar 10, "Hello";
my $twelve = $scalar + 2;          # $twelve = 12
my $greeting = $scalar . " world"; # $greeting = "Hello world"

Scalar::Util 是核心发行版的一部分，并且应该任何有 Perl 的地方都可以使用。

Answer 2

虽然我可以提出这会很有用的情况（也许是罗马数字），但您最好创建一个具有整数和字符串属性的对象。 在适当的上下文中使用适当的属性。

这为您提供了额外的灵活性，能够通过“使用重载”来重载操作。 在罗马数字示例中，dualvar 将一直工作，直到您想要将 2 个罗马数字相加。