Orijinali korurken bir dizede Perl ikamesini nasıl gerçekleştirebilirim?

Perl'de, normal bir ifade kullanarak bir dizede değiştirme yapmanın ve orijinali değiştirmeden değeri farklı bir değişkende saklamanın iyi bir yolu nedir?

Ben genellikle sadece yeni bir değişken için dize kopyalayın sonra s///yeni dize yerine yapar regex bağlamak , ama bunu yapmak için daha iyi bir yolu olup olmadığını merak?

$newstring = $oldstring;
$newstring =~ s/foo/bar/g;

Bu, orijinali değiştirmeden her zaman bir dizenin değiştirilmiş bir kopyasını almak için kullandığım deyimdir:

(my $newstring = $oldstring) =~ s/foo/bar/g;

Perl 5.14.0 veya sonraki sürümlerde, yeni /r tahribatsız ikame değiştiricisini kullanabilirsiniz :

my $newstring = $oldstring =~ s/foo/bar/gr; 

Not: Yukarıdaki çözümler gde olmadan çalışır . Ayrıca diğer değiştiricilerle de çalışırlar.

İfade:

(my $newstring = $oldstring) =~ s/foo/bar/g;

Şuna eşittir:

my $newstring = $oldstring;
$newstring =~ s/foo/bar/g;

Alternatif olarak, Perl 5.13.2'den itibaren /rtahribatsız bir ikame yapmak için kullanabilirsiniz :

use 5.013;
#...
my $newstring = $oldstring =~ s/foo/bar/gr;

Altında use strict, söyle:

(my $new = $original) =~ s/foo/bar/;

yerine.

Tek katmanlı çözelti, shibboleth olarak iyi koddan daha kullanışlıdır; iyi Perl kodlayıcılar bunu bilir ve anlar, ancak başladığınız iki satırlı kopyala ve değiştir coupletinden çok daha az şeffaf ve okunabilir.

Başka bir deyişle, bunu yapmanın iyi bir yolu zaten yaptığınız yöntemdir . Okunabilirlik pahasına gereksiz kısaltma bir kazanç değildir.

5.14 öncesi başka bir çözüm: http://www.perlmonks.org/?node_id=346719 (japonya'nın gönderisine bakın)

Yaklaşımının kullandığı gibi map, diziler için de iyi çalışır, ancak mapgeçici bir dizi oluşturmak için basamaklı gerektirir (aksi takdirde orijinal değiştirilir):

my @orig = ('this', 'this sucks', 'what is this?');
my @list = map { s/this/that/; $_ } map { $_ } @orig;
# @orig unmodified

Foo ve bar'dan nefret ediyorum .. Zaten programlamada bu tanımlayıcı olmayan terimleri kim hayal etti?

my $oldstring = "replace donotreplace replace donotreplace replace donotreplace";

my $newstring = $oldstring;
$newstring =~ s/replace/newword/g; # inplace replacement

print $newstring;
%: newword donotreplace newword donotreplace newword donotreplace

Perl ile birlikte use strict;yazarsanız, bildirildiğinde bile bir satır sözdiziminin geçerli olmadığını görürsünüz.

İle:

my ($newstring = $oldstring) =~ s/foo/bar/;

Şunları elde edersiniz:

Can't declare scalar assignment in "my" at script.pl line 7, near ") =~"
Execution of script.pl aborted due to compilation errors.

Bunun yerine, kullandığınız sözdizimi, bir satır daha uzun olsa da, bunu yapmak için sözdizimsel olarak doğru yoldur use strict;. Benim için kullanmak use strict;artık sadece bir alışkanlık. Ben otomatik olarak yaparım. Herkes yapmalı.

#!/usr/bin/env perl -wT

use strict;

my $oldstring = "foo one foo two foo three";
my $newstring = $oldstring;
$newstring =~ s/foo/bar/g;

print "$oldstring","\n";
print "$newstring","\n";