小编mle*_*amp的帖子

将两个哈希值合并到%hash1的最佳方法是什么？我总是知道%hash2和%hash1总是有唯一的密钥.如果可能的话,我也更喜欢一行代码.

$hash1{'1'} = 'red';
$hash1{'2'} = 'blue';
$hash2{'3'} = 'green';
$hash2{'4'} = 'yellow';

我看到以下代码的结果,但我不明白or在下面的sort例子中知道该怎么做:

use Data::Dumper;

$animals{'man'}{'name'} = 'paul';
$animals{'man'}{'legs'} = 2;
$animals{'cheeta'}{'name'} = 'mike';
$animals{'cheeta'}{'legs'} = 3;
$animals{'zebra'}{'name'} = 'steve';
$animals{'zebra'}{'legs'} = 4;
$animals{'cat'}{'name'} = '';
$animals{'cat'}{'legs'} = 3;
$animals{'dog'}{'name'} = '';
$animals{'dog'}{'legs'} = 4;
$animals{'rat'}{'name'} = '';
$animals{'rat'}{'legs'} = 5;

@animals = sort {
      $animals{$a}{'name'} cmp $animals{$b}{'name'}
   or $animals{$a}{'legs'} <=> $animals{$b}{'legs'}
} keys %animals;

print Dumper(\@animals);

使用Perl,处理不同开发与生产库路径的简单方法是什么？我想使用我的本地盒子路径进行测试,但是当我启动时,我希望它自动指向生产库路径.