问这一行Perl是没有意义的吗？s/^(\d+)\b/$1/sg

EN

$variable =~ s/^(\d+)\b/$1/sg;

• 开头的锚定^使/g修饰符毫无用处。
• 字符串中缺少通配符.使/s修饰符毫无用处，因为它还用于使.也匹配捕获组之外的零宽度断言，并且此替换根本不会更改变量。

这个正则表达式做的唯一一件事就是将数字捕获到$1中，如果它们被找到的话。

随后的正则表达式

$variable =~ s/\D//sg;

将删除所有非数字，使变量只有一个长数字。如果想要分离第一部分(与第一个正则表达式匹配)，唯一的方法是从第一个正则表达式访问$1。

然而，这种情况下的第一个正则表达式应该简单地写成：

$variable =~ /^(\d+)\b/;

如果要使用捕获：

my ($num) = $variable =~ /^(\d+)\b/;

是否在使用“污点模式”？(使用-T选项调用脚本。)

也许它是用来净化(即不污染)用户输入的。