Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re^5: You won't believe what this regular expression does!

by salva (Canon)
on Feb 26, 2021 at 11:55 UTC ( #11128826=note: print w/replies, xml ) Need Help??


in reply to Re^4: You won't believe what this regular expression does!
in thread You won't believe what this regular expression does!

No, the intent is to ensure that the string ends in just one o, no less, no more than one.

In real life, those lines were paths, and I wanted all of then ending in a single slash. For instance:

/foo --> /foo/ /foo/ --> /foo/ /foo////// --> /foo/

Replies are listed 'Best First'.
Re^6: You won't believe what this regular expression does!
by haukex (Archbishop) on Feb 26, 2021 at 13:16 UTC
    In real life, those lines were paths, and I wanted all of then ending in a single slash.

    Ah, I see. You want canonpath from File::Spec ;-) (doesn't add the trailing slash, but there are multiple possible solutions for that as well)

    And this is admittedly not the prettiest solution, but it works: s{(?| /* (\n) | /+ (\z) | [^/] \K (\z) )}{/$1}mgrx. Or just split the input string on \n...

Re^6: You won't believe what this regular expression does!
by LanX (Sage) on Feb 26, 2021 at 13:17 UTC
      "hello\nhell\nhelloooo\nhello" =~ s/o+$//gmr =~ s/$/o/gmr

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2022-08-18 11:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?