Bash-style Parameter expansion in Perl?

bubnoff has asked for the wisdom of the Perl Monks concerning the following question:

I can do this in bash:

var="hello world"
var2=${var/world/earth}
echo $var2
[download]

Which produces:
hello earth
Is there a similar shortcut in Perl? ...or must I:

my $sentence = qq(Hello World);
my $sub2 = $sentence;
$sub2 =~ s/World/Earth/;
print "$sub2";
[download]

Thanks for reading ~ Bubnoff

Comment on Bash-style Parameter expansion in Perl? Select or Download Code

Replies are listed 'Best First'.
Re: Bash-style Parameter expansion in Perl? by ikegami (Patriarch) on Jul 08, 2010 at 01:19 UTC
`var="hello world" my $var = "hello world"; var2=${var/world/earth} ( my $var2 = $var ) =~ s/world/earth/; echo $var2 say $var2;` [download] I believe 5.14 will also allow `my $var2 = $var =~ s/world/earth/f;` [download]	[reply] [d/l] [select]
Re^2: Bash-style Parameter expansion in Perl? by JavaFan (Canon) on Jul 08, 2010 at 07:21 UTC
The new modifier is written `/r`.	[reply] [d/l]
Re^2: Bash-style Parameter expansion in Perl? (or) by tye (Sage) on Jul 08, 2010 at 08:27 UTC
It is nice to localize the temporary. Sometimes it is also nice to not name the temporary. In the following, the small trick is... `my $var= "hello, world"; for( @{[ $var ]} ) { # Make a copy s/world/earth/; say; # hello, earth } say $var; # hello, world` [download] ...making $_ not be an alias to $var so $var doesn't get modified. Perl 6 gives one explicit control over such (iterate over read-only aliases, read/write aliases, or read/write copies). Perl 5 requires less explicitly targeted techniques. There are other alternatives to `@{[ ... ]}`, of course. I don't like the implicit scope that makes this work: `use strict; my $var= "Hello, World!"; for( my $copy= $var ) { s/World/Earth/; print $_, $/; } print $var, $/; eval 'print $copy, $/; 1' or print '$copy no longer in scope', $/; __END__ Hello, Earth! Hello, World! $copy no longer in scope` [download] but the implicit scope block is there and the above technique may be clearer (less idiomatic). - tye	[reply] [d/l] [select]
Re^2: Bash-style Parameter expansion in Perl? by bubnoff (Novice) on Jul 08, 2010 at 18:51 UTC
Thanks ~ This is what I was looking for. Bubnoff	[reply]