m//中怎么匹配哈希变量

kggg

如$_ =~ /$hash{$key}/;

加了消元符$_ =~ /\Q$hash{$key}\E/ 也匹配不到哈希变量的值.

stanley_tam

貌似$_ =~ /$hash{$key}/就可以匹配

1. $ cat b
   
2. #!/usr/bin/perl
   
3. my %hash = ();
   
4. $hash{'key'} = 'test';
   
5. 
   
6. $_ = 'testing';
   
7. my $key = 'key';
   
8. print 'true' if $_ =~ /$hash{$key}/;
   
9. __END__
   
10. $ perl b
    
11. true

复制代码

kggg

与版本有关吗， 我的perl 是5。8。8的， 不行。

kggg

回复 2# stanley_tam

你这个方法不成立, 在哈希变量中任意值都是true.


   

stanley_tam

任意？莫非是那个key在hash里面不存在？那就改为：

1. print 'true' if exists $hash{$key} and $_ =~ /$hash{$key}/

复制代码

;回复 4# kggg


   

kggg

回复 5# stanley_tam

假如换成$hash{$key}{'yes'} = 'test';
能用$hash{$key}{'yes'}来匹配吗.