在perl中将局部变量合并到全局散列中

sub merge_local_to_global {
    my %local_hash = (key1 => 'value1', key2 => 'value2');
    my $global_hash_ref = $_[0];  # 传入全局散列的引用

    # 将局部散列合并到全局散列中
    foreach my $key (keys %local_hash) {
        $global_hash_ref->{$key} = $local_hash{$key};
    }
}

# 全局散列
my %global_hash = (key3 => 'value3', key4 => 'value4');

# 调用函数，将局部散列合并到全局散列中
merge_local_to_global(\%global_hash);

# 打印全局散列的内容
foreach my $key (keys %global_hash) {
    print "$key: $global_hash{$key}\n";
}

key3: value3
key4: value4
key1: value1
key2: value2