Perl String - Ersatzzeichen ohne eine neue Variable zu bilden

Question

Ist es möglich, Teile eines Strings zu ersetzen, ohne eine ganz neue Variable zu erstellen?

Im Moment mache ich es wie folgt aus:

$someString = "how do you do this"; 
$someString = s/how do/this is how/; 

Was ich versuche, die ursprüngliche Zeichenfolge ($ somestring) ist zu halten zu tun und ein paar Zeichen ersetzen können, ohne dass die ursprüngliche Zeichenfolge zu ändern. Ich bin mit Javascript besser vertraut und kann das in Ihrem Code so machen, ohne eine Variable erstellen/ändern zu müssen.

someString.replace(/how do/, "this is how") 

Jede Hilfe ist willkommen, vielen Dank

Answer 1

Hinweis ganz sicher, verstehe ich die Frage. Wenn Sie die ursprüngliche Zeichenfolge unverändert lassen möchten, müssen Sie eine neue Variable erstellen.

$newstring = $someString ; 
$newstring =~ s/how do/this is how/; 

Beachten Sie, dass der Betreiber =~ nicht =

hinaus Ich glaube, ich jetzt sehen, was Sie wollen - die geänderte Zeichenfolge zurück, anstatt eine Variable. Es wird einen Weg geben, dies in Perl 5.14 zu tun, aber mir ist derzeit kein Weg bekannt. Siehe Use the /r substitution flag to work on a copy unter The Effective Perler.

aktualisieren Die s///r functionallity ist seit einiger Zeit in Perl veröffentlicht worden. Sie können Sie

use 5.14.0 ; 
my $someString = "how do you do this"; 
say ($someString =~ s/how do/this is how/r) ; 

Answer 2

tun Lambda auch verwenden kann, das heißt:

sub { local $_ = shift; s/how do/this is how/; $_ }->($someString) 

Dies auch $_ bei bewahrt rufen Sie die Lambda als Unter { }->($_)