Perl如何从字符串变量中提取匹配内容并存储到新变量

Perl 处理单个字符串变量不需要借助 grep、map 这类数组操作函数，直接使用绑定操作符 =~ 搭配正则捕获组即可完成提取，示例实现如下：

完整代码示例 #

# 初始化原始变量
my $abc = 'abc.txt ->  check a/b/c test';

# 正则捕获并直接赋值给目标变量
my ($bcd, $xyz) = $abc =~ /^(\S+)\s+->\s+check\s+(\S+)\s+test/;

# 校验输出
print "\$bcd 的值为：$bcd\n";
print "\$xyz 的值为：$xyz\n";

实现说明 #

• 当正则表达式包含捕获组、且赋值操作处于列表上下文时，=~ 操作会按顺序返回所有捕获组的匹配结果，直接对应赋值给左侧的变量列表即可。
• 如果你已经有适配的自定义正则规则，直接替换上述代码中正则部分即可，只需要保证捕获组的顺序和目标变量的顺序一一对应。
• 如需兼容匹配失败的场景，可以增加匹配判断逻辑：

if (($bcd, $xyz) = $abc =~ /你的自定义正则/) {
    # 匹配成功后的业务逻辑
} else {
    # 匹配失败后的异常处理逻辑
}

内容的提问来源于stack exchange，提问作者john IT