Re: help with a regex

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
[download]

Comment on Re: help with a regex Download Code

Replies are listed 'Best First'.

Re^2: help with a regex
by Athanasius (Archbishop) on Feb 02, 2013 at 03:27 UTC

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;
[download]

Output:

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

13:15 >
[download]

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

r Return substitution and leave the original string untouched.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
[select]

Re^3: help with a regex

by AnomalousMonk (Archbishop) on Feb 02, 2013 at 12:29 UTC

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

[reply]
[d/l]