Perl正则表达式求助：提取文件中-cfg参数的值

问题原因 #

你当前的正则表达式/-cfg\s([a-zA-Z0-9_.]*)\s/里，捕获组的字符类[a-zA-Z0-9_.]没有包含斜杠（/），所以遇到带/的参数值时，只能匹配到/之前的部分，无法完整捕获目标内容。

修正方案 #

方案1：扩展允许的字符类 #

直接把/加入到字符类中，让正则能匹配包含/的参数值：

if (/-cfg\s([a-zA-Z0-9_.\/]*)\s/) {
    $value = $1;
    print "Config: $value\n";
}

注意：这里的/需要转义成/，因为Perl中默认用/作为正则分隔符。

方案2：更灵活的非空白匹配 #

如果你的-cfg参数值本身不包含空格，也可以用\S+来匹配所有非空白字符，这样无需逐个列举允许的字符：

if (/-cfg\s(\S+)/) {
    $value = $1;
    print "Config: $value\n";
}

这个方案适应性更强，能匹配除了空格之外的任意字符（包括/、-等特殊符号），只要参数值是连续的非空白内容即可。

代码优化建议 #

1. 原代码中my $file="file.txt"后面缺少分号，需要补上：my $file = "file.txt";
2. 建议使用词法文件句柄（如$fh）替代旧式的裸文件句柄（F），提升代码安全性和可读性：

use strict;
use warnings;

my $file = "file.txt";
open my $fh, '<', $file or die "cannot open $file: $!";

while (<$fh>) {
    chomp;
    if (/-cfg\s(\S+)/) {
        my $value = $1;
        print "Config: $value\n";
    }
}
close $fh;

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