请教大家个hash数组的问题

天下第一菜

我有一个列表，比如 aa bb cc dd ee
我想判断一个变量$ch是不是在这个列表里，怎样实现比较好，我想的是把aa bb cc dd ee放在hash数组的key里，然后用exists判断hash数组里有没有$ch这个key，但请问有没有只给哈希数据赋值key而不需要赋值value的写法呢？
%hash_ch=qw(aa bb cc dd ee)这样key和value都赋值了不行。
或者有什么别的方法可能完成这个功能。请教大家。

FangyuanCheng

赋值为空呗
hash就是key/value组合

kk861123

回复 1# 天下第一菜


    赋下值又何妨？

1. my %hash_ch;
   
2. $hash_ch{$_}++ for qw(aa bb cc dd ee);

复制代码

然后进行你要的判断即可

xfoucs

#!/usr/bin/perl -w
use strict;
my @arr=qw/aa bb dd cc ee/;
my $str= 'aa';
print $str if(grep{$_ eq $str}@arr);
#5.10版本及以上的话还可以智能匹配 @arr ~~ $str 判断

3P主义

@hash{@array} = ();

twilightagain

4楼说的有些错误，5.10.1以上的版本智能匹配操作符不符合交换律，应当写作 $str ~~ @arr

xfoucs

4楼说的有些错误，5.10.1以上的版本智能匹配操作符不符合交换律，应当写作 $str ~~ @arr
twilightagain 发表于 2011-10-30 02:16

感谢指出其中错误，在5.101的changes里确实提到了智能匹配的变化。
The smart match operator ~~ is no longer commutative. The behaviour of a smart match now depends primarily on the type of its right hand argument.
看来这种对perl版本有要求的代码还是尽量少写为好{:3_183:}