Могу ли я получить результаты из регулярного выражения в новую строку?

Question

Я уже знаю, как использовать регулярные выражения для изменения строки, то есть

$string1 =~ s/[aeiouy]//gi;

Но каков синтаксис для сохранения исходной строки?т.е.

$string2 = $string1 = s/[aeiouy]//gi;

Так что $ string1 - это до, а $ string2 - после.

Уверен, что есть способ, спасибо за вашу помощь

Answer 1

Если у вас есть Perl 5.14 или лучше, используйте модификатор /r .

$string1 = "cat toy";
$string2 = ($string1 =~ s/[aeiouy]//gir);
print $string1;       # "cat toy", unchanged
print $string2;       # "ct t",    with modifications

Он также работает с оператором транслитерации

$string1 = "cat toy";
$string2 = ($string1 =~ tr/aeiouy/123456/r);
print $string1;       # "cat toy"
print $string2;       # "c1t t46"