My<cod/>.net
Как выполнить подстановку Perl в строке, сохраняя при этом оригинал?
В Perl, какой хороший способ выполнить замену строки с помощью регулярного выражения и сохранить значение в другой переменной, не изменяя оригинал?
Обычно я просто копирую строку в новую переменную, а затем привязываю ее к s/// regex, который делает замену на новую строку, но мне было интересно, есть ли лучший способ сделать это?
$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 . Они также работают с любыми другими модификаторами.
Однострочное решение более полезно в качестве шиболета, чем хороший код; хорошие кодеры Perl будут знать его и понимать, но оно гораздо менее прозрачно и читаемо, чем двухстрочный куплет copy-and-modify, с которого вы начинаете.
Другими словами, хороший способ сделать это-это то, как вы уже делаете это. Ненужная лаконичность ценой читабельности-это не победа.
Я ненавижу фу и бар .. кто вообще придумал эти не описательные термины в программировании?
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
Другую предварительно 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
Если вы пишете 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";