无法在 unblessed 引用上调用方法“dclone”

Question

我收到以下错误。

"Can't call method "dclone" on unblessed reference"

“unblessed reference”是什么意思以及如何更正。请参考以下代码。

代码

use strict;                                                                        
use warnings;                                                                      
use YAML::XS 'LoadFile';                                                           
use Data::Dumper;                                                                  

my $config = LoadFile('config.yml');                                               
my $record1 = $config->{Record1};                                                  
print "record1: $record1\n";                                                       
print Dumper($config);                                                             

$config->{Record2} =  dclone $config->{Record1};                                   
print Dumper($config);

下面是输出

record1: ARRAY(0x275fa88)
$VAR1 = {
          'Record1' => [
                         {
                           'Name' => 'Karun'
                         },
                         {
                           'Phone' => 123
                         }
                       ]
        };
Can't call method "dclone" on unblessed reference at p1.pl line 11.

Answer 1

dclone 不是 Perl 的核心功能，也不是您导入的模块提供的。它是由Storable 提供的。你可能错过了

use Storable 'dclone';