perl – 在moose默认值中使用localtime

发布时间：2020-12-15 22:05:26 所属栏目：大数据来源：网络整理

导读：下面的代码有什么问题？运行时,我得到：“在连接(.)中使用未初始化的值或在./main.pl第14行使用字符串” #!/usr/bin/perlpackage Test;use Moose;has 'message' = (isa = 'HashRef',is = 'ro',default = sub{{(localtime)[2] = {(localtime)[3] = "hello"}}}

下面的代码有什么问题？运行时,我得到：“在连接(.)中使用未初始化的值或在./main.pl第14行使用字符串”

#!/usr/bin/perl

package Test;

use Moose;

has 'message'     => (isa => 'HashRef',is => 'ro',default => sub{{(localtime)[2] => {(localtime)[3] => "hello"}}});

# the one below works fine
#has 'message'     => (isa => 'HashRef',default => sub{{"18" => {"16" => "hello"}}});

sub show {
    my $self = shift;
    print("Test: " . $self->message->{(localtime)[2]}->{(localtime)[3]} . "n");
}

my $o = Test->new();
$o->show();

如果我不使用localtime()那么它工作正常.本地时间[2]和[3]也不会经常变化(2小时,3是月日)所以问题不是那样.如果我用调试器运行脚本,我得到：

x $self
0  Test=HASH(0x3597300)
   'message' => HASH(0x3597618)
      16 => 'hello'

所以看起来我’失去’一级间接,不确定为什么……任何想法？

解决方法

外部{}不会解析为hashref.添加显式返回：

has 'message'     => (isa => 'HashRef',default => sub{ return {(localtime)[2] => {(localtime)[3] => "hello"}} });

一个强制这个也有效.

has 'message'     => (isa => 'HashRef',default => sub{ +{(localtime)[2] => {(localtime)[3] => "hello"}} });

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!