Re^5: 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/
[download]

Comment on Re^5: You won't believe what this regular expression does! Select or Download Code

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`...	[reply] [d/l] [select]
Re^6: You won't believe what this regular expression does! by LanX (Saint) on Feb 26, 2021 at 13:17 UTC
> No, the intent is to ensure that the string ends in just one o, no less, no more than one. And how did you solve it in the end? ... You won't believe how I did this! `DB<39> $_="/foo\n/foo/\n/foo/////" DB<40> say "$_ --> ",s(/*$)(/)r for split /\n/ /foo --> /foo/ /foo/ --> /foo/ /foo///// --> /foo/` [download] ;-P Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]
Re^7: You won't believe what this regular expression does! by salva (Canon) on Feb 26, 2021 at 14:23 UTC
`"hello\nhell\nhelloooo\nhello" =~ s/o+$//gmr =~ s/$/o/gmr`	[reply] [d/l]