1使用 s///进行替换 ................................ ................................ ................................ .......…

Perl 中的 s/// 是正则表达式替换操作符，基本语法为 `s/pattern/replacement/`，默认对 $_ 变量操作。其核心功能是将字符串中匹配 pattern 的部分替换为 replacement。实际使用中常通过绑定操作符 `=~` 指定目标变量，例如 `$str =~ s/foo/bar/`。替换的修饰符控制替换行为：`/g` 进行全局替换（默认只替换第一个匹配）；`/i` 忽略大小写；`/s` 使 . 能匹配换行符；`/m` 使 ^ 和 $ 匹配行首尾；`/x` 允许模式中空白和注释。replacement 部分可引用捕获组：`$1`、`$2` 等，也可使用 `$&`（整个匹配）、`$``（匹配前内容）、`$'`（匹配后内容）。需注意特殊字符转义：在 pattern 中，除元字符外，`/` 也需转义或用不同定界符（如 s#pattern#replacement#）。复杂替换可用 `/e` 修饰符将 replacement 当作 Perl 表达式执行。易错点：忘记绑定操作符 `=~` 导致替换作用于 $_；误解 `/g` 只替换一次；在 replacement 中使用 `$1` 时未正确处理变量插值；忘记转义 `/` 或定界符冲突；使用捕获组时未考虑 pattern 嵌套。通过 `qr//` 预编译正则可提高效率。