论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2008-12-02 19:02 |只看该作者 |倒序浏览

my %hash = (
         '10' => 'one',
         '2A' => 'two',
         '30' => 'three',
         );
(@key,@value) = each %hash;

@str=("  ","a a","FIS 0x10 s","FIS 0x2A=2","cc");
for($i=0;$i<@str;$i++)
{if($str[$i]=~/^\s+/)
   { print "unuse"."\n"; }
if($str[$i]=~/(FIS.*0x)((\d|\w)(\d|\w))/)
   { print $2."\n";
      if ($2=~/ foreach $key (keys %hash)/)
            { print $value (values %hash);}
      }
else {$str[$i]="$str[$i] \n";  }
#  print $str[$i]."\n";
  }
想要通过匹配hash里面的key 10&2A来得到one&two，怎样可以实现？

现在可以输出：
unuse
10
2A
想要输出如下内容，该怎样实现呢？
one
two

文库|博客

ulmer

家境小康

论坛徽章:: 0

2楼 [报告]

发表于 2008-12-02 21:13 |只看该作者

Using regxp + exists()

%hash = (  '10' => 'one', '2A' => 'two',    '30' => 'three'  );
@str=("  ","a a","FIS 0x10 s","FIS 0x2A=2","cc");
for (@str) {
if (/0x([\dA-Z]+)/ && exists $hash{$1}) {
      print "$1 = $hash{$1}\n";
}
}

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

ynchnluiti

巨富豪门

论坛徽章:: 3

3楼 [报告]

发表于 2008-12-02 22:41 |只看该作者

my %hash = (
      '10' => 'one',
      '2A' => 'two',
      '30' => 'three',
      );
@str=("  ","a a","FIS 0x10 s","FIS 0x2A=2","cc");
map { /FIS 0x([0-9A-F]+)/ &&  exists $hash{$1} && print $hash{$1}, "\n" } @str;