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

Question

我正在尝试找到 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                                                        
     }                                                                              
} 

Answer 1

在perldoc perlreftut 中查看autovivification。

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

足够了。

此外，您可能不希望有性别的变量名称。