Post History
Perl, 43 bytes Takes two strings with arbitrary content. Returns merged result. sub f{"@_"=~s/(.*)\K$"(?=\Q$_[1]\E$)\1//sr} Inspired by Wezl's sed regex. Try it online!
#4: Post edited
by
jhnc
·
2026-03-26T10:12:09Z (6 months ago)
why is there no rollback or raw view option? looks like `\z` never behaves differently than `$` in this situation
# Perl, 44 bytes- Takes two strings with arbitrary content.
- Returns merged result.
- <!-- language-all: lang-perl -->
sub f{"@_"=~s/(.*)\K$"(?=\Q$_[1]\E\z)\1//sr}- Inspired by [Wezl's sed regex](https://codegolf.codidact.com/posts/281542/281574#answer-281574).
[Try it online!][TIO-mn7ahw4m][TIO-mn7ahw4m]: https://tio.run/##VY6xDoIwEIZ3nuJSSQ4MStA4EVQUUOPkbA3BpEzGGCqDGn312kLRckuT/75@999YdZmJmjMoWXGvKwbIiweGgtdnKF9kmZPow31nPHTp3ibOIqIHOz8GJ5rSp0sD3@fVW8gvUDoYr9ZJmqGHabbZ7tANQc4ARnPQK5VaHdyMhGM9itdwl1h/sQSDyVQ7oSdWeUcqnzplgmYFU5mgR2QpeiUd3ICk7SrjPts@P@9fah7v3TU4FF8 "Perl 5 – Try It Online"
- # Perl, 43 bytes
- Takes two strings with arbitrary content.
- Returns merged result.
- <!-- language-all: lang-perl -->
- sub f{"@_"=~s/(.*)\K$"(?=\Q$_[1]\E$)\1//sr}
- Inspired by [Wezl's sed regex](https://codegolf.codidact.com/posts/281542/281574#answer-281574).
- [Try it online!][TIO-mn79xjug]
- [TIO-mn79xjug]: https://tio.run/##K0gtyjH9X1qcqpCWmlhSWpSqoF6cWKlu/b@4NEkhrVrJIV7Jtq5YX0NPSzPGW0VJw942JlAlPtowNsZVRTPGUF@/uKj2P1CHQpqGuqOTs4urm7qOuqubu4enuqa1AhAoK@jaKUClQKJcMMVgAFTsCAUg9VDFMBEuhMFAhYZGxlAzFVAMBonDVILMA1mFrBDZCchGukAVI9QiFCIbiGIWkjr1/wA "Perl 5 – Try It Online"
#3: Post edited
by
jhnc
·
2026-03-26T09:49:29Z (6 months ago)
bugfix to handle embedded newlines
# Perl, 43 bytes- Takes two strings with arbitrary content.
- Returns merged result.
- <!-- language-all: lang-perl -->
sub f{"@_"=~s/(.*)\K$"(?=\Q$_[1]\E$)\1//sr}- Inspired by [Wezl's sed regex](https://codegolf.codidact.com/posts/281542/281574#answer-281574).
[Try it online!][TIO-mn79xjug][TIO-mn79xjug]: https://tio.run/##K0gtyjH9X1qcqpCWmlhSWpSqoF6cWKlu/b@4NEkhrVrJIV7Jtq5YX0NPSzPGW0VJw942JlAlPtowNsZVRTPGUF@/uKj2P1CHQpqGuqOTs4urm7qOuqubu4enuqa1AhAoK@jaKUClQKJcMMVgAFTsCAUg9VDFMBEuhMFAhYZGxlAzFVAMBonDVILMA1mFrBDZCchGukAVI9QiFCIbiGIWkjr1/wA "Perl 5 – Try It Online"
- # Perl, 44 bytes
- Takes two strings with arbitrary content.
- Returns merged result.
- <!-- language-all: lang-perl -->
- sub f{"@_"=~s/(.*)\K$"(?=\Q$_[1]\E\z)\1//sr}
- Inspired by [Wezl's sed regex](https://codegolf.codidact.com/posts/281542/281574#answer-281574).
- [Try it online!][TIO-mn7ahw4m]
- [TIO-mn7ahw4m]: https://tio.run/##VY6xDoIwEIZ3nuJSSQ4MStA4EVQUUOPkbA3BpEzGGCqDGn312kLRckuT/75@999YdZmJmjMoWXGvKwbIiweGgtdnKF9kmZPow31nPHTp3ibOIqIHOz8GJ5rSp0sD3@fVW8gvUDoYr9ZJmqGHabbZ7tANQc4ARnPQK5VaHdyMhGM9itdwl1h/sQSDyVQ7oSdWeUcqnzplgmYFU5mgR2QpeiUd3ICk7SrjPts@P@9fah7v3TU4FF8 "Perl 5 – Try It Online"
#2: Post edited
by
jhnc
·
2026-03-26T09:34:35Z (6 months ago)
instead of calculating length why not just search for the string itself?
# Perl 5, 54 bytes- Takes two strings with arbitrary content.
- Returns merged result.
- <!-- language-all: lang-perl -->
sub f{$b=length$_[1];"@_"=~s/(.*)\K$"(?=.{$b}$)\1//sr}- Inspired by [Wezl's sed regex](https://codegolf.codidact.com/posts/281542/281574#answer-281574).
[Try it online!][TIO-mn25bdab][TIO-mn25bdab]: https://tio.run/##Vc7RCoIwFIDhe5/iYIOjUYpFV2JlqRU@QoYozLqQCKcXEfbqa4uJ81yeffu3F23qDe8YhYoWbddQQFa80eesK6H6kDKo6fPePkh@9W6@uc/N4Mtcy5nbWUpMaxc4wvTEzjzXZU3PxWWoLAwPxyhOcIFxcjpf0PZBzAyWW1BHcmsM@D8Ch2qkV3jYGGNYQG@1Vk2YhOV@kLInn9Kh/gU9GSk82hHqwUlLc8h/ "Perl 5 – Try It Online"
- # Perl, 43 bytes
- Takes two strings with arbitrary content.
- Returns merged result.
- <!-- language-all: lang-perl -->
- sub f{"@_"=~s/(.*)\K$"(?=\Q$_[1]\E$)\1//sr}
- Inspired by [Wezl's sed regex](https://codegolf.codidact.com/posts/281542/281574#answer-281574).
- [Try it online!][TIO-mn79xjug]
- [TIO-mn79xjug]: https://tio.run/##K0gtyjH9X1qcqpCWmlhSWpSqoF6cWKlu/b@4NEkhrVrJIV7Jtq5YX0NPSzPGW0VJw942JlAlPtowNsZVRTPGUF@/uKj2P1CHQpqGuqOTs4urm7qOuqubu4enuqa1AhAoK@jaKUClQKJcMMVgAFTsCAUg9VDFMBEuhMFAhYZGxlAzFVAMBonDVILMA1mFrBDZCchGukAVI9QiFCIbiGIWkjr1/wA "Perl 5 – Try It Online"
#1: Initial revision
by
jhnc
·
2026-03-22T19:35:33Z (6 months ago)
# Perl 5, 54 bytes
Takes two strings with arbitrary content.
Returns merged result.
<!-- language-all: lang-perl -->
sub f{$b=length$_[1];"@_"=~s/(.*)\K$"(?=.{$b}$)\1//sr}
Inspired by [Wezl's sed regex](https://codegolf.codidact.com/posts/281542/281574#answer-281574).
[Try it online!][TIO-mn25bdab]
[TIO-mn25bdab]: https://tio.run/##Vc7RCoIwFIDhe5/iYIOjUYpFV2JlqRU@QoYozLqQCKcXEfbqa4uJ81yeffu3F23qDe8YhYoWbddQQFa80eesK6H6kDKo6fPePkh@9W6@uc/N4Mtcy5nbWUpMaxc4wvTEzjzXZU3PxWWoLAwPxyhOcIFxcjpf0PZBzAyWW1BHcmsM@D8Ch2qkV3jYGGNYQG@1Vk2YhOV@kLInn9Kh/gU9GSk82hHqwUlLc8h/ "Perl 5 – Try It Online"