如何将数组转换成hash

qfmeal

1.
例如：
my @arr = qw(111 222 333 );
my %hash;

我想得到的hash为：
$hash{111} = 1;
$hash{222} = 1;
$hash{333} = 1;



2.
有两个数组 @arr1，@arr2
我想组成的hash为：
以第一个数组为key，以第二个数组为value

qfmeal

找到了

%dictionary = map { $_, 1 } qw(cat dog man woman hat glove);
@words = qw(dog kat wimen hat man gloove);
foreach $word (@words) {
    if (not $dictionary{$word}) {   
        print "Possible misspelled word: $word\n";
    }
}

qfmeal

……
发错地方了

qfmeal

哪位版主能帮忙把帖子删了，或者移到perl版。

我发错地方了

3Q