Perl中如何用正则匹配多行字符串中的指定行并提取对应值？

问题原因 #

• 正则默认^仅匹配整个字符串的开头，你需要添加/m多行修饰符让^可以匹配每一行的行首，你之前使用的/s修饰符作用是让.匹配换行符，和你的需求不匹配
• 逻辑判断写反：system返回0代表命令执行成功，你现在写的unless ($exit_status && 匹配)逻辑完全错误，既没有正确判断命令执行结果，还会在匹配失败的情况下仍然尝试读取无效的$1值
• 变量作用域错误：你在unless代码块内部用my声明$name，块外部无法访问这个变量，自然取不到值

修正后代码 #

use Capture::Tiny qw(capture);
my $cmd = $SOME_CMD;
my ($stdout, $stderr, $exit_status) = capture { system($cmd); };
my $name = '';
# 先判断命令执行成功（exit_status为0），再匹配内容
if ($exit_status == 0 && $stdout =~ /^Repository:\s+(.*)/m) {
    $name = $1;
}
# 后续可直接使用$name变量

改动说明 #

• 新增/m正则修饰符，开启多行匹配模式，此时^会匹配每行的开头，就能正确命中Repository所在的行
• 修正逻辑判断：先判断命令执行成功（$exit_status == 0），再执行正则匹配，只有匹配成功才会给$name赋值
• 将$name的声明移到判断块外部，保证后续代码可以正常访问该变量

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