Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re^3: regex to rename last _ with ,

by AnomalousMonk (Archbishop)
on Sep 11, 2014 at 14:39 UTC ( [id://1100309]=note: print w/replies, xml ) Need Help??

in reply to Re^2: regex to rename last _ with ,
in thread regex to rename last _ with ,

+----------------------------- In the scalar $s (interpreted as a str +ing), | +--------------------- if you find an _ (underscore) | | +----------------- that's followed by 0 or more of anythi +ng but an _ (underscore) | | | and then the end-of-string, | | | + -- replace it with a , (comma). | | | | V V V V $s =~ s{ _ (?= [^_]* \z) }{,}xms;

Update: See "Look-Around Assertions" in the Extended Patterns of perlre.

(And the use of  <code> ... </code> tags would still be much appreciated.)

Another Update: If you have Perl version 5.10+, another way (see  \K in Extended Patterns):

c:\@Work\Perl\monks>perl -wMstrict -le "use 5.010; ;; my @flist = qw( 1st-device-CA_Eth.0/1 2nd-device_TX_Gig.1/1 3rd_device_MO_Gig.1/1 ); ;; for my $s (@flist) { print qq{'$s'}; $s =~ s{ .* \K _ }{,}xms; print qq{'$s'}; print ''; } " '1st-device-CA_Eth.0/1' '1st-device-CA,Eth.0/1' '2nd-device_TX_Gig.1/1' '2nd-device_TX,Gig.1/1' '3rd_device_MO_Gig.1/1' '3rd_device_MO,Gig.1/1'

Replies are listed 'Best First'.
Re^4: regex to rename last _ with ,
by choroba (Cardinal) on Sep 11, 2014 at 14:43 UTC
    And, for completeness:
    xms ^^^ ||| || Make . also match \n (not needed here). || | Make ^ and $ match beginning and end of lines (not needed here). | Allow whitespace in the pattern for readability.
    لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
      Well explained. Thank you.
Re^4: regex to rename last _ with ,
by ArifS (Beadle) on Sep 11, 2014 at 14:58 UTC
    Thank you very much. Much apprecaited!

Log In?

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

How do I use this?Last hourOther CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (2)
As of 2024-05-25 15:51 GMT
Find Nodes?
    Voting Booth?

    No recent polls found