请教perl的用法

atlandis

大家好，请教大家，我想把两个数组赋值给hash，结果出来的结果顺序乱掉了我期待的结果
a => 1
b => 2
c => 3
d => 4
实际的结果
1 => 2
c => d
a => b
3 => 4



请问如何改正？

@array_name     =qw/a b c d/;
@array_value    =1..4;
my %hash = ( @array_name => @array_value);

maucan

我是用for loop 的。。。

hnulht789

#! ~/usr/bin/perl -w
use strict;
my @array_name=qw/a b c d/;
my @array_value=1..4;
foreach my $name(@array_name) {
  my $value = shift @array_value;
  my %hash  = ($name=>$value);
}

你看看这样可以吗?

legend03u8z

hash就是离散存储吧，不行您用数组引用

fuckzhanwu

回复 3# hnulht789

#!/usr/bin/perl -w
use strict;
use warnings;

my @arry_name = qw/a b c d/;
my @arry_value= 1..4;
my %hash;

@hash{ @arry_name } = @arry_value;

hnulht789

回复 5# fuckzhanwu


    Ok,it's more simple!

hnulht789

回复 5# fuckzhanwu


    It's hash slice,very good!

射门靴

回复 1# atlandis


"my %hash = ( @array_name => @array_value); "

像这样用是不行的, "=>"的作用在这里和逗号是一样的.

上面的语句解析出来就是 my %hash = ( a,b,c,d,1,2,3,4);
也就是  my %hash = ( a=>b,c=>d,1=>2,3=>4);

用for或者foreach是可以达到你的目的的

searchinternet

ddddddddddddddddd

soliderjo

我是用for loop 的。。。