Как выполнить множественные замены с помощью Perl?

Question

У меня есть код Perl:

my $s = "The+quick+brown+fox+jumps+over+the+lazy+dog+that+is+my+dog"; 

Я хочу, чтобы заменить все + с пространством и dog с cat.

У меня есть это регулярное выражение:

$s =~ s/\+(.*)dog/ ${1}cat/g; 

Но это соответствует только первое вхождение + и последнего dog.

Answer 1

Вы можете использовать «е» модификатор для выполнения кода во второй части с s/// выражения.

$s =~ s/(\+)|(dog)/$1 ? ' ' : 'cat'/eg; 

Если $1 верно, то это означает, что \+ соответствует, поэтому он заменяет пространство; в противном случае он заменяет «кошку».

Answer 2

Простой ответ - использовать 2 линии !:

$s =~ s/+/ /g; 
$s =~ s/dog/cat/g; 

Это, вероятно, может быть сделано в одной строке с «не жадный» соответствия, но это должно сделать трюк

Answer 3

Два регулярных выражения могли бы сделать вашу жизнь намного проще:

$s =~ s/\+/ /g; 
$s =~ s/dog/cat/g; 

следующие матчи «+», затем кучу вещей, а затем «собака». Кроме того, «+» является технически метасимволом.

/+(.*)dog/ 

Answer 4

Хэш может делать то, что вы хотите:

#!/usr/bin/perl 

use strict; 
use warnings; 

my $s = "The+quick+brown+fox+jumps+over+the+lazy+dog+that+is+my+dog"; 

my %replace = (
    "+" => " ", 
    dog => "cat", 
); 

$s =~ s/([+]|dog)/$replace{$1}/g; 

print "$s\n"; 

В комментариях я вижу, что вы обеспокоены производительности, два регулярное выражение решение является более производительным. Это связано с тем, что любое решение, которое работает для одного регулярного выражения, должно будет использовать захваты (которые замедляют регулярное выражение).

Вот результаты теста:

eval: The quick brown fox jumps over the lazy cat that is my cat 
hash: The quick brown fox jumps over the lazy cat that is my cat 
two: The quick brown fox jumps over the lazy cat that is my cat 
     Rate hash eval two 
hash 33184/s -- -29% -80% 
eval 46419/s 40% -- -72% 
two 165414/s 398% 256% -- 

Я использовал следующий тест:

#!/usr/bin/perl 

use strict; 
use warnings; 

use Benchmark; 

my $s = "The+quick+brown+fox+jumps+over+the+lazy+dog+that+is+my+dog"; 

my %replace = (
    "+" => " ", 
    dog => "cat", 
); 

my %subs = (
    hash => sub { 
     (my $t = $s) =~ s/([+]|dog)/$replace{$1}/g; 
     return $t; 
    }, 
    two => sub { 
     (my $t = $s) =~ s/[+]/ /g; 
     $t =~ s/dog/cat/g; 
     return $t; 
    }, 
    eval => sub { 
     (my $t = $s) =~ s/(\+)|(dog)/$1 ? ' ' : 'cat'/eg; 
     return $t; 
    }, 
); 

for my $k (sort keys %subs) { 
    print "$k: ", $subs{$k}(), "\n"; 
} 

Benchmark::cmpthese -1, \%subs; 

Answer 5

Если скорость важна, вы, вероятно, следует придерживаться двух линий. Но когда мне нужно делать несколько подстановок сразу, я обычно больше забочусь об удобстве, поэтому я использую хэш, как это было предложено Часом. Оуэнс. Два преимущества над двухстрочным слоем состоят в том, что его легко модифицировать и он ведет себя как ожидаемый (например, при замене «кошка» на «собаку» и «собаку» на «кошку» одновременно).

Однако, я очень ленив, чтобы написать регулярное выражение вручную, и предпочитают, чтобы собрать его с присоединиться, и использовать карту, чтобы избежать вещи:

#!/usr/bin/perl 

use strict; 
use warnings; 

my $s = "The+quick+brown+fox+jumps+over+the+lazy+dog+that+is+my+dog"; 

my %replace = (
    "+" => " ", 
    dog => "cat", 
); 

my $regex = join "|", 
    #use quotemeta to escape special characters 
    map { quotemeta } 
    #reverse sort the keys because "ab" =~ /(a|ab)/ returns "a" 
    sort { $b cmp $a } keys %replace; 

#compiling the regex before using it prevents 
#you from having to recompile it each time 
$regex = qr/$regex/; 

$s =~ s/($regex)/$replace{$1}/g; 

print "$s\n"; 

Answer 6

Perl 5,14 и выше имеет способность цепных подстановок с неразрушающего назначения, чтобы вы могли убить трех птиц одним камнем: выполните две ваши глобальные замены и назначьте результат новой переменной без изменения исходной переменной.

my $s = "The+quick+brown+fox+jumps+over+the+lazy+dog+that+is+my+dog"; 
my $result = $s =~ s/+/ /gr 
       =~ s/dog/cat/gr; 

Заменит все ваши + с пространством и заменить каждый dog с cat, назначая результат в новую переменную. В однострочном.