perl 合并dbm文件

[perl]代码库

#-----------------------------
%OUTPUT = ( %INPUT1, %INPUT2 );
#-----------------------------
%OUTPUT = ();
foreach $href ( \%INPUT1, \%INPUT2 )
{
	while ( my ( $key, $value ) = each ( %$href ) )
	{
		if ( exists $OUTPUT {$key} )
		{
# decide which value to use and set $OUTPUT{$key} if necessary
		}
		else
		{
			$OUTPUT {$key} = $value;
		}
	}
}
#-----------------------------