Perl 正则表达式替换字符中的匹配子串54

Perl 编程语言中的正则表达式 (regex) 提供了强大的字符串操作功能，包括替换字符串中匹配模式的部分内容。其中，s 运算符专门用于执行字符串替换。

语法s/// 语句用于执行字符串替换。其语法如下：
s/模式/替换/修饰符

* 模式：要查找的正则表达式模式。
* 替换：替换匹配项的文本。可以使用特殊字符来插入匹配文本的子串。
* 修饰符：可选的修饰符，用于控制替换行为，如全局替换或区分大小写。

修饰符常见的修饰符包括：
* g：全局替换，替换字符串中的所有匹配项。
* i：忽略大小写，不区分匹配文本的大小写。
* m：多行模式，将字符串视为多行，而不是单行。
* s：单线模式，将字符串中所有换行符视为普通字符。
* x：扩展模式，允许在正则表达式中使用注释和空格。

特殊字符在替换文本中，可以使用以下特殊字符来插入匹配文本的子串：
* $0：匹配整个模式。
* $1、$2、...：匹配相应组捕获的子串。
* $&：匹配模式的子串。

示例下面是一些示例，展示如何使用 s 运算符替换字符串中的匹配子串：
```perl
# 查找并替换字符串中的所有 "Perl" 为 "Python"
$str = "Perl is a great language.";
$str =~ s/Perl/Python/g;
print "Modified str: $str";
# 查找并替换字符串中以 "regex" 开头的单词为 "string"
$str = "The regex module is very powerful.";
$str =~ s/regex\b/string/;
print "Modified str: $str";
# 使用捕获组替换字符串中的数字为其两倍
$str = "Sales for the year: $100,000";
$str =~ s/(?\d+)/2 * $num/g;
print "Modified str: $str";
```

上下文替换Perl 中的字符串替换还可以使用上下文替换，即在替换过程中动态生成替换文本。这可以通过使用 eval 函数执行 Perl 代码块来实现。
```perl
# 根据匹配文本的长度替换字符串中的单词
$str = "This is a very long sentence.";
$str =~ s/(\w+)/eval "length($_) > 10 ? 'very long' : 'short'";
print "Modified str: $str";
```

Perl 的 s 运算符提供了灵活而强大的字符串替换功能。通过使用正则表达式和特殊字符，您可以精确地查找和替换字符串中的子串，从而实现各种文本处理任务。

2025-01-28

上一篇：Perl 语言 运算符

下一篇：Perl 的 `wq` 运算符：按需执行文件 I/O