代码之家 › 专栏 › 技术社区 › musiKk

一个perl s//g中发生了多少次替换?

substitution perl regex

musiKk · 技术社区 · 14 年前

小例子:

perl -e '$s="aaabbcc";$c=()=$s=~/a/g;print"$c\n$s\n"' (m/g)输出

3
aaabbcc

反之 perl -e '$s="aaabbcc";$c=()=$s=~s/a/x/g;print"$c\n$s\n"' (S//G)输出

1
xxxbbcc

我想同时做这两件事而不必先匹配:替换并知道替换的数量。显然,S///G不会返回标量上下文中替换的数量——与M//G使用匹配项时不同。这有可能吗?如果是,怎么办?

Perlre、Perlvar和Perlop没有提供任何帮助(或者我只是找不到)。

1 回复 | 直到 12 年前

Michael Carman 14 年前

s/// 不返回在标量上下文中进行的替换数。从 perlop (增加了重点):

S/pattern/replacement/msixpogce
在字符串中搜索模式,如果找到,则替换该模式带替换文本的图案和 返回替换 . 否则它返回错误(具体来说, 空字符串)。

你的问题是你没有打电话 S/// 在标量上下文中。您在列表上下文中调用它,然后评估分配 (到空列表)在标量上下文中。标量上下文中的列表赋值返回表达式右侧生成的元素数。自从 S/// 返回单个值(在列表和标量上下文中),元素数始终为一,即使 S/// 什么都没做。

perl -E "$s='aaabbcc'; $c=()=$s=~s/x/y/g; say qq'$c-$s'"  # prints "1-aaabbcc"

打电话 S/// 在标量上下文中,省略 =()= 伪运算符。

perl -E "$s='aaabbcc'; $c=$s=~s/a/x/g; say qq'$c-$s'"  # prints "3-xxxbbcc"

推荐文章

lonix · 使用sed从JSON中提取非贪婪正则表达式

1 年前

me-me · regex检查电子邮件字符串是否有@后跟一个点以及点符号后至少2个字符[重复]

2 年前

Dave Guerrero · 是否有一个正则表达式模式来捕获字符串中直到第一个字母字符的数字?

2 年前

Dima Malko · 如何在指定符号前添加符号?

2 年前

shekharsabale · 从列表元素捕获子字符串

2 年前

maycca · 正则表达式:过滤年份数值大于某个值的文件?字符串中编码的年份

2 年前

Katia · 根据特定规则进行多行匹配

2 年前

Andrei Cleland · 在长正则表达式中包含unicode字符

2 年前

MHA · Pandas str.extract()以字母结尾的数字

2 年前

Slava Vir · 如何查找后面“/”之间的最后一组

2 年前