在Perl中,我应该如何填充这个多级哈希？

我试图找到Perl的最佳方法来填充多级哈希考虑到丢失的密钥.
所以我使用这个:

if( !exists $customer_data{$customer_id} ) {  
     $customer_data{$customer_id} = {};    
}    
$customer_data{$customer_id}->{$salesman_name} //={};
$customer_data{$customer_id}->{$salesman_name}->{$timestamp} = 1;   

这是奇怪的,因为我正在使用exists和//=东西,但我不知道如何正确和简洁地编写此代码.
结果如下:

'1000' => {                                                                                             
    'jsmith' => {                                                                              
         1502121730 => 1,                                                           
         1512321730 => 1                                                        
     }                                                                              
} 

Sinan Ünür.. 5

见自动激活中的perldoc perlreftut.

$customer_data{$customer_id}{$salesperson_name}{$timestamp} = 1;

足够了.

此外,您可能不想要性别变量名称.

见自动激活中的perldoc perlreftut.

$customer_data{$customer_id}{$salesperson_name}{$timestamp} = 1;

足够了.

此外,您可能不想要性别变量名称.