Perl String - Değiştirme Yeni bir değişken oluşturmadan karakterler

Question

Bir dizinin parçalarını tamamen yeni bir değişken oluşturmak zorunda kalmadan değiştirmek mümkün mü?

Şu anda böyle yapmak:

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

Ne yapmaya çalışıyorum orijinal dize ($ someString) tutmak ve özgün dize değiştirmeden birkaç karakter yerine muktedir olduğunu. Javascript ile daha yakından tanıyorum ve bunu bir değişken oluşturmak/değiştirmek zorunda kalmadan kodunuzda yapabilirsiniz. Herhangi bir yardım takdir

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

, teşekkür

Answer 1

Not oldukça emin bir sürü ben soruyu anlamadım. Orijinal dizeyi değiştirmeden bırakmak isterseniz, yeni bir değişken oluşturmanız gerekir. Değiştirilen dize döndürür yerine bir değişken değiştirmek için - operatörü ben şimdi ne istediğinizi görüyorum =~ değil =

eklenmesi olduğunu

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

Not. Bunu Perl 5.14'te yapmanın bir yolu olacak ama şu an bir yolun farkında değilim. The Effective Perler numaralı telefondan Use the /r substitution flag to work on a copy'a bakın.

Güncelleme s///r işlevselliği bir süre için serbest Perl içinde olmuştur. Eğer

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

Answer 2

Ayrıca lambda kullanabilir yapabilir, yani:/Kullanım s:

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

Bu aynı zamanda durumunda $_ korur Perl [alt { }->($_)