为什么这段代码不符合我的意思？

Question

$w = 'self-powering';
%h = (self => 'self',
      power => 'pauә',
      );
if ($w =~ /(\w+)-(\w+)ing$/ && $1~~%h && $2~~%h && $h{$2}=~/ә$/) {
    $p = $h{$1}.$h{$2}.'riŋ';
      print "$w:"," [","$p","] "; 
}

我希望输出是

self-powering: selfpauәriŋ

但我得到的是：

self-powering: [riŋ]

我的猜测是代码有问题

$h{$2}=~/ә$/

好像我用的时候

$h{$2}!~/ә$/

Perl 会按照我的意思做，但为什么我不能获得“self-powering: selfpauәriŋ”？ 我究竟做错了什么？有任何想法吗？

一如既往地感谢任何 cmets/建议/指针 :)

Answer 1

当你跑步时

 $h{$2}!~/ә$/

在您的 if 语句中，$1 和 $2 的内容被更改为空，因为没有匹配分组（没有分组）。如果你这样做：

if ($w =~ /(\w+)-(\w+)ing$/){
    my $m1 = $1;
    my $m2 = $2;
    if($m2~~%h && $m2~~%h && $h{$m2}=~/ә$/) {
        $p = $h{$m1}.$h{$m2}.'riŋ';
        print "$w:"," [","$p","] "; 
    }
}

我希望你会得到你想要的。

Answer 2

您是否在启用use warnings 的情况下运行？这会告诉你 $1 和 $2 不是你所期望的。一旦您进入 if 块，您的第二个正则表达式，而不是第一个，确定这些变量的值。用一个更简单的例子来说明：

print $1, "\n"
    if  'foo' =~ /(\w+)/
    and 'bar' =~ /(\w+)/;