Perl 中如何进行替换 (Substitution)？

推荐答案

在 Perl 中，替换操作可以通过 s/// 操作符来实现。s/// 操作符用于在字符串中查找匹配的模式并将其替换为指定的内容。

my $string = "Hello, World!";
$string =~ s/World/Perl/;
print $string;  # 输出: Hello, Perl!

在这个例子中，s/World/Perl/ 将字符串中的 World 替换为 Perl。

本题详细解读

替换操作符 s///

s/// 是 Perl 中的替换操作符，其基本语法如下：

s/模式/替换内容/修饰符;

• 模式：这是你要查找的正则表达式模式。
• 替换内容：这是你要替换匹配内容的新字符串。
• 修饰符：可选参数，用于控制替换行为。常见的修饰符包括：
  • g：全局替换，替换所有匹配的内容。
  • i：忽略大小写。
  • e：将替换内容作为 Perl 代码执行。

示例

1. 简单替换：

   my $text = "The cat sat on the mat.";
   $text =~ s/cat/dog/;
   print $text;  # 输出: The dog sat on the mat.

2. 全局替换：

   my $text = "The cat sat on the cat.";
   $text =~ s/cat/dog/g;
   print $text;  # 输出: The dog sat on the dog.

3. 忽略大小写替换：

   my $text = "The Cat sat on the cat.";
   $text =~ s/cat/dog/gi;
   print $text;  # 输出: The dog sat on the dog.

4. 使用 e 修饰符：

   my $text = "The price is 100.";
   $text =~ s/(\d+)/$1 * 2/e;
   print $text;  # 输出: The price is 200.

注意事项

• 替换操作符 s/// 默认只替换第一个匹配的内容，除非使用 g 修饰符。
• 替换操作符 s/// 返回替换的次数，如果没有发生替换则返回 0。
• 替换操作符 s/// 会修改原始字符串，如果不希望修改原始字符串，可以使用 r 修饰符（Perl 5.14 及以上版本）。

my $text = "Hello, World!";
my $new_text = $text =~ s/World/Perl/r;
print $new_text;  # 输出: Hello, Perl!
print $text;      # 输出: Hello, World!

在这个例子中，r 修饰符使得替换操作返回一个新的字符串，而不会修改原始字符串。