Re: help with a regex

[toolic]

You are printing the return value of s///, which is the number of substitutions made. If there was only 1 substitution, it prints 1, which just happens to match the hash value. You should print $_ instead:

use warnings;
use strict;

my %words = (word => 1, word2 => 1, word3 =>1);
my $temp  = 'WORD2';
my $temp1 = 'word2';
$_ = 'here is word2';
s/$temp1/$words{$temp1} ? "$temp " : "[$temp] "/ex; 
print "$_\n";

__END__

here is WORD2

[Athanasius]

You should print $_ instead

Or, just add the /r modifier to the substitution:

#! perl
use v5.14;
use warnings;
use strict;

my %words          = (word => 1, word2 => 1, word3 => 1);
my ($temp, $temp1) = qw(WORD2 word2);
$_                 = 'here is word2';

say s/$temp1/$words{$temp1} ? "$temp " : "[$temp] "/er;

Output:

13:14 >perl 515_SoPW.pl
here is WORD2

13:15 >

From s/PATTERN/REPLACEMENT/msixpodualgcer in Regexp Quote Like Operators:

r Return substitution and leave the original string untouched.

Hope that helps,

[AnomalousMonk]

It should be made clear that the  s///r regex switch is only available with Perl versions 5.14 and above.