PERL使用REGEX提取子字符串

Question

我正在尝试从以下格式化的字符串中提取子字符串。

STRING = ABC123.Txt 目标：ABC.Txt

我写的珍珠语句在“）（”

的正则表达式行上给出了语法错误

$S= "ABC123.Txt";
$S=~/([A-Z])([0-9])(\.[A-Za-z])/;
print "$1$3";

我是正则表达式的新手，所以任何帮助都会非常感激。

Answer 1

像

这样的东西

/([A-Z])/

只会匹配单个大写字母。如果您想要匹配一个或多个大写字母，则需要使用+：

来遵循该模式

$S=~/([A-Z]+)([0-9]+)(\.[A-Za-z]+)/;