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

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 的地方使用。