请教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);

wolfwang2008

array slice

frankhyk

自己写了一个，参考一下：
@hash_key=qw(a b c d e f);
@hash_value=qw(1 2 3 4 5 6);
foreach $string(@hash_key)
{
        my $temp=shift @hash_value;
           $hash_list{$string}=$temp;       
}
while (($str1,$str2)=each %hash_list)
{
        print("$str1=>$str2\n");
}

soliderjo

我是用for loop 的。。。

searchinternet

ddddddddddddddddd

射门靴

回复 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是可以达到你的目的的

hnulht789

回复 5# fuckzhanwu


    It's hash slice,very good!

hnulht789

回复 5# fuckzhanwu


    Ok,it's more simple!

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;

legend03u8z

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