大佬教程收集整理的这篇文章主要介绍了perl – 使用Hash :: Merge合并数组的哈希值,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
Hash::Merge
合并包含一个或多个数组的两个哈希值.例如:
use Strict; use warnings; use feature qw(say); use Data::Dump qw(dump); use Hash::Merge qw(mergE); my $h1 = { a => [ { aa => 1 },3 ] }; my $h2 = { a => [ { bb => 2 } ] }; my $hLeft = merge( $h1,$h2 ); my $hRight = merge( $h2,$h1 ); say " hLeft: " . dump($hLeft); say " hRight: " . dump($hRight); my $hDesired = { a => [ { aa => 1,bb => 2 },3 ] }; say "Desired: " . dump($hDesired);
这给出了输出:
hLeft: { a => [{ aa => 1 },3,{ bb => 2 }] } hRight: { a => [{ bb => 2 },{ aa => 1 },3] } Desired: { a => [{ aa => 1,3] }
如何使用Hash :: Merge获得正确的输出?
sub { [ @{$_[0]},@{$_[1]} ] },
要获得不同的行为,必须使用Hash::Merge::specify_behavior
.
以下解决方案是LEFT_PRECEDENT,并将数组元素合并到元素:
use Strict; use warnings; use feature qw(say); use Data::Dump qw(dump); use Hash::Merge qw(mergE); Hash::Merge::specify_behavior( { 'SCALAR' => { 'SCALAR' => sub { $_[0] },'ARRAY' => sub { $_[0] },'HASH' => sub { $_[0] },},'ARRAY' => { 'SCALAR' => sub { [ @{ $_[0] },$_[1] ] },'ARRAY' => sub { my ( $left,$right ) = @_; my @merged = @$left; my @to_add = @$right; for (@merged) { last if !@to_add; $_ = Hash::Merge::merge( $_,shift @to_add ); } return [ @merged,@to_add ]; },'HASH' => sub { [ @{ $_[0] },values %{ $_[1] } ] },'HASH' => { 'SCALAR' => sub { $_[0] },'HASH' => sub { Hash::Merge::_merge_hashes( $_[0],$_[1] ) },'My Behavior',); my $h1 = { a => [ { aa => 1 },3 ] }; my $h2 = { a => [ { bb => 2 } ] }; my $merged = merge( $h1,$h2 ); say "Merged: " . dump($merged);
输出:
@H_441_2@merged: { a => [{ aa => 1,3] }以上是大佬教程为你收集整理的perl – 使用Hash :: Merge合并数组的哈希值全部内容,希望文章能够帮你解决perl – 使用Hash :: Merge合并数组的哈希值所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。