Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^2: REGEX Non-Destructive Flag

by mmartin (Monk)
on Jan 10, 2012 at 17:54 UTC ( #947203=note: print w/ replies, xml ) Need Help??


in reply to Re: REGEX Non-Destructive Flag
in thread REGEX Non-Destructive Flag

Hey toolic, thanks for the reply.

Ok I was afraid of that... Thanks

Is there an easier way (less lines) that I could use with my version like my previous example (i.e. $str = $str2 =~ s/pattern/replace/r; ).

The only way I can think to do this without changing the original string is:

my $str1 = "How-Are-You-Doing" my $str2 = $str1 $str2 =~ s/-/ /; print $str2; ____OUTPUT____ Hello How Are You Doing


Thanks,
Matt



Comment on Re^2: REGEX Non-Destructive Flag
Download Code
Re^3: REGEX Non-Destructive Flag
by MidLifeXis (Monsignor) on Jan 10, 2012 at 18:08 UTC

     perl -ne '(my $foo = $_) =~ s/-/ /g;'

    The assignment returns an lvalue which then gets the substitution run on it. Basically the same as yours, just in one statement.

    --MidLifeXis

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (13)
As of 2015-07-02 08:49 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 (31 votes), past polls