h**o 发帖数: 548 | 1 要在perl 里实现这样一个功能:
假设数据库A 和B 中的变量有这样的一一对应关系:
Attribute_mapping
{
“databaseA_attribute_1” “databaseB_attribute_1”
“databaseA_attribute_2” “databaseB_attribute_2”
“databaseA_attribute_3” “databaseB_attribute_3”
}
假设数据库A中变量及其值的对应是:
databaseA_value
{
“databaseA_attribute_1” “value_1”
“databaseA_attribute_2” “value_2”
“databaseA_attribute_3” “value_3”
}
然后进行了一个操作后数据库A中变量值就应该拷到数据库B中相应变量中去.
为了检查这个操作对不对, 我就要检查数据库B中变量值:
my %DBA_value = ("databaseA_attr | j*****a 发帖数: 436 | 2 my @DBA_DBB_value = (
{
"dba_attribute" => "databaseA_attribute_1",
"dbb_attribute" => "databaseB_attribute_1",
"dba_value" => "value_1",
},
{
"dba_attribute" => "databaseA_attribute_2",
"dbb_attribute" => "databaseB_attribute_2",
"dba_value" => "value_2",
},
{
"dba_attribute" => "databaseA_attribute_3",
"dbb_attribute" => "databaseB_attribute_3",
"dba_value" => "value_3",
},
);
if(parameter== |
|