Pourquoi ce code ne fait pas ce que je veux dire?

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","] "; 
} 

je me attends à la sortie soit

self-powering: selfpauәriŋ 

Mais ce que je reçois est:

self-powering: [riŋ] 

Je pense que quelque chose ne va pas avec le code

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

Il semble que lorsque J'utilise

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

Perl fera ce que je veux dire, mais pourquoi je ne peux pas obtenir "self-powering: selfpauәriŋ"? Qu'est-ce que je fais de mal? Des idées?

Merci comme toujours pour les commentaires/suggestions/pointeurs :)

Answer 1

Lorsque vous exécutez

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

Dans votre instruction if le contenu de 1 et 2 $ sont modifiés pour être vide, car aucun regroupement étaient apparié (il n'y en avait pas). Si vous le faites comme ceci:

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","] "; 
    } 
} 

Je m'attends à ce que vous obteniez ce que vous voulez.

Answer 2

Exécutez-vous avec use warnings activé? Cela vous dirait que $1 et $2 ne sont pas ce que vous attendez. Votre deuxième expression régulière, et non la première, détermine les valeurs de ces variables lorsque vous entrez dans le bloc if. Pour illustrer avec un exemple plus simple:

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