regex - $sr_no =~ s/^(0*)(.*)/$2/ ，在 perl 脚本中是什么意思？

Question

下面的替换是什么意思？

if($sr_no =~ m/^0/)
{
    $sr_no =~ s/^(0*)(.*)/$2/;
}

Answer 1

这是一种笨拙的写法$sr_no =~ s/^0+//，即删除所有前导零。基本上是无用的if，因为无论如何替换执行相同的逻辑（即如果没有匹配则不替换）。

Answer 2

它从字符串中去除前导零。

虽然我会把它写成

s/^0+//

即，将一个或多个 ( +) 前导 ( ^) 零 ( 0) 替换为空 ( //)。

Answer 3

将所有（由于*）前面（由于^）零替换为后面的所有内容（由于$2 = (.*)）

Answer 4

• 如果标量变量的内容sr_no与正则表达式匹配^0
  • 也就是说，以0
• 将匹配正则表达式的文本替换为^(0*)(.*)第二组
  • 即去掉前导0s。

也可以看看：

• Perl 正则表达式，获取有关 Perl 中正则表达式的背景信息
• 正则表达式 Quote-Like Operators以获取有关m//ands///运算符的详细信息。