perl hash合并
来源:互联网 发布:linux tomcat 启动慢 编辑:程序博客网 时间:2024/05/09 14:43
use Data::Dumper;
#-----------------------------
%merged = (%A, %B);
#-----------------------------
%merged = ();
while ( ($k,$v) = each(%A) ) {
$merged{$k} = $v;
}
while ( ($k,$v) = each(%B) ) {
$merged{$k} = $v;
}
#-----------------------------
# %food_color as per the introduction
%food_color = ( Galliano => "yellow",
"Mai Tai" => "blue" );
#%ingested_color = (%drink_color, %food_color);
#-----------------------------
# %food_color per the introduction, then
%drink_color = ( Galliano1 => "yellow",
"Mai Tai1" => "blue" );
%substance_color = ();
while (($k, $v) = each %food_color) {
$substance_color{$k} = $v;
}
while (($k, $v) = each %drink_color) {
$substance_color{$k} = $v;
}
print Data::Dumper->Dumper(\%substance_color);
print "\n";
#-----------------------------
foreach $substanceref ( \%food_color, \%drink_color ) {
while (($k, $v) = each %$substanceref) {
$substance_color{$k} = $v;
}
}
#-----------------------------
foreach $substanceref ( \%food_color, \%drink_color ) {
while (($k, $v) = each %$substanceref) {
if (exists $substance_color{$k}) {
print "Warning: $k seen twice. Using the first definition.\n";
next;
}
$substance_color{$k} = $v;
}
}
#-----------------------------
#@all_colors{keys %new_colors} = values %new_colors;
#-----------------------------
%merged = (%A, %B);
#-----------------------------
%merged = ();
while ( ($k,$v) = each(%A) ) {
$merged{$k} = $v;
}
while ( ($k,$v) = each(%B) ) {
$merged{$k} = $v;
}
#-----------------------------
# %food_color as per the introduction
%food_color = ( Galliano => "yellow",
"Mai Tai" => "blue" );
#%ingested_color = (%drink_color, %food_color);
#-----------------------------
# %food_color per the introduction, then
%drink_color = ( Galliano1 => "yellow",
"Mai Tai1" => "blue" );
%substance_color = ();
while (($k, $v) = each %food_color) {
$substance_color{$k} = $v;
}
while (($k, $v) = each %drink_color) {
$substance_color{$k} = $v;
}
print Data::Dumper->Dumper(\%substance_color);
print "\n";
#-----------------------------
foreach $substanceref ( \%food_color, \%drink_color ) {
while (($k, $v) = each %$substanceref) {
$substance_color{$k} = $v;
}
}
#-----------------------------
foreach $substanceref ( \%food_color, \%drink_color ) {
while (($k, $v) = each %$substanceref) {
if (exists $substance_color{$k}) {
print "Warning: $k seen twice. Using the first definition.\n";
next;
}
$substance_color{$k} = $v;
}
}
#-----------------------------
#@all_colors{keys %new_colors} = values %new_colors;
#-----------------------------
输出:
$VAR1 = 'Data::Dumper';
$VAR2 = {
'Mai Tai1' => 'blue',
'Mai Tai' => 'blue',
'Galliano1' => 'yellow',
'Galliano' => 'yellow'
};
Warning: Galliano seen twice. Using the first definition.
Warning: Mai Tai seen twice. Using the first definition.
Warning: Galliano1 seen twice. Using the first definition.
Warning: Mai Tai1 seen twice. Using the first definition.
0 0
- perl hash合并
- Perl (hash)
- perl hash
- perl hash
- perl hash
- perl hash
- perl hash operate
- perl-hash的用法
- Perl => Hash
- perl中的hash结构
- perl中的hash结构
- perl hash 常见用法
- perl hash 排序
- perl hash 常见用法
- perl hash 常见用法
- Perl学习之hash
- Perl Hash Howto
- perl 引用/hash
- 论文笔记 | Deep Residual Learning for Image Recognition
- 【linux系统加固之】busybox加固
- Eclipse IDE
- 标记为可安全执行脚本的Activex
- nopcommerce插件相关
- perl hash合并
- 配置多个github公钥
- 欢迎使用CSDN-markdown编辑器
- CentOS覆盖win10引导的解决办法
- TOMCAT 的 线程 和队列
- AndroidStudio中,把项目提交到SVN中操作方法
- Sudoku Solver 求解数独问题
- extjs中超级厉害获取组件的方法Ext.ComponentQuery.query(),根据组件类型(xtype属性)获取组件。
- @GeneratedValue