Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^2: help with a regex

by Athanasius (Abbot)
on Feb 02, 2013 at 03:27 UTC ( #1016637=note: print w/ replies, xml ) Need Help??


in reply to Re: help with a regex
in thread help with a regex

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,

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


Comment on Re^2: help with a regex
Select or Download Code
Re^3: help with a regex
by AnomalousMonk (Abbot) 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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1016637]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2015-07-04 07:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (58 votes), past polls