Re^4: surprised to find cannot assign s/../../ to a variable

That looks like a sensible approach. If you have a perl released in the last decade and a half you can use defined-or to shorten the syntax too:

use 5.010;
my $pattern     = $options{pattern}     // $default_pattern;
my $replacement = $options{replacement} // $default_replacement;
$text =~ s/$pattern/$replacement/;
[download]

🦛

Comment on Re^4: surprised to find cannot assign s/../../ to a variable Download Code

Replies are listed 'Best First'.
Re^5: surprised to find cannot assign s/../../ to a variable by vincentaxhe (Scribe) on Jul 05, 2024 at 15:27 UTC
It's not always need substitution, just matched parts will do, sometimes substitution make it simple. for like s/\.^.+$//r just like /(.?)(?:\.^.)$/	[reply]
Re^6: surprised to find cannot assign s/../../ to a variable by hippo (Archbishop) on Jul 05, 2024 at 15:45 UTC
`m//` and `s///` are two completely different operators. Do not try to shoehorn them into a single expression like that - you will just be creating less maintainable code. The best solution is not always the one with fewest keystrokes. `if ($some_condition) { ($foo) = ($bar =~ m/capturing_pattern/); else { ($foo = $bar) =~ s/pattern/replacement/; }` [download] That should hopefully be unambiguous and more maintainable than the original proposal. 🦛	[reply] [d/l] [select]