请教，能否用正则表达式取哈希？

ulmer

原帖由 geshutian 于 2006-7-17 10:25 发表
比如把key是数字的所有values赋值为0。

Hi,
using map().
i.e, hash's key is digits and set those values as 0:

1. 
   
2. perl -MData::Dumper -e '%h=(123=>"foo",abc=>"bar");%h2=map{$_=>($_=~/\d+/?0:$h{$_})}keys %h;print Dumper(\%h2)'
   

复制代码

geshutian

原帖由 ulmer 于 2006-7-17 17:24 发表


Hi,
using map().
i.e, hash's key is digits and set those values as 0:
[code]
perl -MData:umper -e '%h=(123=>"foo",abc=>"bar";%h2=map{$_=>($_=~/\d+/?0h{$_} ...

thanks very  much