Question

是否可以从Perl中的子例程返回别名？

我有一个简单的例子：

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

{
    package Test;
    my $value = 'old';

    sub get_value {
        return \$value;
    }

    sub set_value {
        my ($x) = @_;
        $value = $x;
    }
}

my $test = Test::get_value();
say $$test;

Test::set_value('new');
say $$test;

这实际上是我想要的功能，但是我想找到一种方法来$test和别名$value，这样我就可以访问数据而无需解除引用。这可能吗？

以下是我想要的语法示例：

ex（伪代码）：

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

{
    package Test;
    my $value = 'old';

    sub get_value {
        # return alias to $value
    }

    sub set_value {
        my ($x) = @_;
        $value = $x;
    }
}

# Gets an alias, NOT a reference
my $test = Test::get_value();

# Print old
say $test;

Test::set_value('new');

# Print new
say $test;

我一直在阅读有关别名的内容，所有内容都指向＆＃34; typeglobs＆＃34; ...但看起来使用typeglobs需要使用全局变量，我真的想避免这种情况。 / p>

此外，我想要一个不需要从CPAN安装任何其他模块的解决方案，因为我需要让它们获得安全认证并安装它们......所以其他任何人都希望使用我的脚本。

Answer 1

首先要警告一句。您要求提供有关执行极差练习的信息。应该消除远距离的行动，而不是寻求。

您可以将两个名称绑定到同一个SV。这样绑定的名称称为别名。您无法返回绑定名称，因此您无法返回别名。

如何返回重载字符串化的对象？

$ perl -E'
   use String::Defer qw( );

   {
      my $value = "old";
      sub set_value { $value = $_[0] }
      sub get_value { String::Defer->new(\$value) }
   }

   {
      my $value = get_value();
      say $value;
      set_value('new');
      say $value;
   }
'
old
new

应该做什么而是返回参考。

$ perl -E'
   {
      my $value = "old";
      sub set_value { $value = $_[0] }
      sub get_ref { \$value }
   }

   {
      my $value_ref = get_ref();
      say $$value_ref;
      set_value('new');
      say $$value_ref;
   }
'
old
new

从Perl中的子例程返回别名

1 个答案: