perl - 如何通过外部 perl 文件对其进行操作，将新的键值对添加到原始哈希中我想要的任何位置？

Question

将perl 任务模块中的以下哈希值视为

package taskmoduleName; 
use vars qw( %hash);  
%hash = ( 
 'x1' => {  'fruits' => { 
               'candiedfruit' => {  
                   'sugarcoated' => {
                       'fruitname1' => 'grapes',  }, },   
                   'chocolatecoated' {  
                       'fruitname2' => 'cherries', }, },},    
            'vegetables' => {  
                 'fried' => {  
                    'salted' => {     
                       'veg1' => 'banana', }, }, },
'x2' => {    'xyz' => 
                  'xyz1 => 'hhh', },}, );

如何通过外部 perl 文件对其进行操作，将新的键值对添加到原始哈希中我想要的任何位置？ PS我不想修改原始文件中的任何其他内容，除了添加新条目

Answer 1

在您的其他文件中，您可以执行以下操作：

use taskmoduleName;
$taskmoduleName{x1}{fruits}{long}{name} = 'rhubarb';

但是，这可能会导致代码脆弱且难以维护，因此不建议这样做。

为什么你需要做这样的事情？也许这里有人可以想到不同的方法。