Perl中使用正则搜索数组并仅返回单个捕获组的实现方法

该需求完全可以实现，核心利用了List::Util的first函数可以直接返回代码块内的求值结果，而非必须返回原数组元素的特性，写法非常简洁：

核心实现代码 #

use List::Util qw(first);

my $value = 'default';

do {
    # 此处编写发起HTTP请求的逻辑，直接使用$value即可
    my @values = $response->header( 'X-Header' );
} while ( 
    $value = first { 
        /test-([^;]+); blah=foo/ ? $1 : undef 
    } @values 
);

逻辑说明 #

• first会遍历@values中的每一个头部值，对每个值执行正则匹配
• 匹配成功时直接返回捕获组$1（也就是你需要的test-后的目标字段值），此时first会立即终止遍历，把$1赋值给$value，循环继续
• 所有头部都匹配失败时，代码块返回undef，first返回undef赋值给$value，循环自动终止

优势 #

• 不需要额外遍历数组，没有冗余代码
• 正则写法直白易读，不需要使用\K或者零宽断言这类可读性较低的语法
• 完全符合你预期的代码结构，不需要调整原有逻辑框架

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