Як виконати заміну Perl на рядку, зберігаючи оригінал?

У Perl, що є хорошим способом виконати заміну на рядку, використовуючи регулярний вираз і зберегти значення в іншій змінній, не змінюючи оригінал?

Зазвичай я просто копіюю рядок до нової змінної, а потім прив'язую її до s///регулярного виразу, який робить заміну на нову рядок, але мені було цікаво, чи є кращий спосіб це зробити?

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

Це ідіома, яку я завжди використовував для отримання модифікованої копії рядка без зміни оригіналу:

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

У perl 5.14.0 або пізнішої версії ви можете використовувати новий /r неруйнівний модифікатор заміни :

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

Примітка. Вищезазначені рішення працюють і без того g. Вони також працюють з будь-якими іншими модифікаторами.

Заява:

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

Що еквівалентно:

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

Як варіант Perl 5.13.2 ви можете використовувати /rзаміну без руйнування:

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

Під use strict, скажіть:

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

замість цього.

Однолінійне рішення корисніше як шибболет, ніж хороший код; хороші кодери Perl знають це і розуміють це, але він набагато менш прозорий і читабельний, ніж дворядковий пакет копіювання та модифікації, з якого ви починаєте.

Іншими словами, хороший спосіб зробити це так, як ви це вже робите. Непотрібна чіткість за рахунок читабельності - це не виграш.

Ще одне рішення до 5.14: http://www.perlmonks.org/?node_id=346719 (див. Повідомлення Джафі)

Оскільки використовується його підхід map, він також добре працює для масивів, але вимагає каскадування mapдля створення тимчасового масиву (інакше оригінал буде змінено):

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

Я ненавиджу foo and bar .. хто все-таки придумав ці не описові терміни в програмуванні?

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 з use strict;, ви побачите, що синтаксис одного рядка недійсний, навіть якщо він оголошений.

З:

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

Ви отримуєте:

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

Натомість синтаксис, який ви використовували, а рядок довший - це синтаксично правильний спосіб зробити це use strict;. Для мене use strict;зараз використання звички. Я роблю це автоматично. Кожен повинен.

#!/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";