在Perl中,如何从数组中生成哈希@A并@B具有相同数量的元素?目标是让每个价值@A成为价值的关键@B.产生的散列%C将使得可以从@B提供密钥中唯一地标识元素@A.
new*_*cct 23
它很简单
my %c;
@c{@a} = @b;
Run Code Online (Sandbox Code Playgroud)
use List::MoreUtils 'mesh';
my %c = mesh @a, @b;
Run Code Online (Sandbox Code Playgroud)
这是它在内部制作的方式(如果您确定相同数量的元素):
my %c = map { $a[$_] => $b[$_] } 0 .. $#a;
Run Code Online (Sandbox Code Playgroud)