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

时间:2013-02-14 13:16:54

标签: perl

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文件操作原始哈希 添加新的键值对
附:除了添加新条目

之外,我不想修改原始文件中的任何其他内容

1 个答案:

答案 0 :(得分:0)

在您的其他文件中,您可以执行以下操作:

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

但是,这可能导致代码易碎且难以维护,并且不是真正推荐的。

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