Chinaunix

标题: 如何将数组转换成hash [打印本页]

作者: qfmeal 时间: 2009-06-08 17:15
标题: 如何将数组转换成hash
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 时间: 2009-06-08 17:17
找到了

%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";
}
}

作者: deafening 时间: 2009-06-08 17:21
提示: 作者被禁止或删除内容自动屏蔽

作者: qfmeal 时间: 2009-06-08 17:21
……
发错地方了

作者: qfmeal 时间: 2009-06-08 17:46
哪位版主能帮忙把帖子删了，或者移到perl版。

我发错地方了

3Q

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)