如何用Perl检测文本文件中指定带制表符的两行内容

看起来你的正则表达式有几个关键问题导致无法匹配目标行，我来帮你梳理并修复：

原正则的问题分析 #

1. 制表符匹配逻辑错误：你用了 *，这会匹配0个或多个制表符，但需求是每行前必须带有制表符，所以应该用 +（至少一个）或者明确匹配单个制表符 （如果确定目标行只有一个前置制表符）。
2. 未覆盖完整目标字符串：原正则只写到(NONE|\d+)...，截断的部分没有匹配到目标行末尾的-YES-NO-NONE-YES;，导致无法完全匹配整行。
3. 遗漏了CFB的情况：原正则只处理了CFU开头的字符串，没有考虑CFB的变体。

修复后的正则与代码示例 #

如果你需要分别检查两行是否都存在，可以用两个明确的正则，或者合并成一个来匹配两种情况。以下是完整的Perl代码示例：

# 打开目标文件（替换成你的文件名）
open my $file_handle, '<', 'your_text_file.txt' or die "Failed to open file: $!";

my $has_cfu_line = 0;
my $has_cfb_line = 0;

while (my $line = <$file_handle>) {
    chomp $line; # 去掉行尾的换行符
    
    # 匹配带制表符的CFU目标行
    if ($line =~ /^\tCF=CFU-TS10-ACT-NONE-YES-NO-NONE-YES;$/) {
        $has_cfu_line = 1;
        print "Found target CFU line: $line\n";
    }
    # 匹配带制表符的CFB目标行
    elsif ($line =~ /^\tCF=CFB-TS10-ACT-NONE-YES-NO-NONE-YES;$/) {
        $has_cfb_line = 1;
        print "Found target CFB line: $line\n";
    }
}

close $file_handle;

# 输出检查结果
if ($has_cfu_line && $has_cfb_line) {
    print "Both required lines are present in the file.\n";
} elsif ($has_cfu_line) {
    print "Only the CFU line was found.\n";
} elsif ($has_cfb_line) {
    print "Only the CFB line was found.\n";
} else {
    print "Neither of the required lines exist in the file.\n";
}

正则说明 #

• ^：匹配行的开头，确保我们只检查每行最前面的内容。
• \t：匹配单个制表符（如果目标行可能有多个制表符，可以换成\t+）。
• CF=CFU-...;$：完整匹配目标字符串，$确保行尾没有多余字符，避免部分匹配。

可选：合并正则 #

如果你只想快速判断两种情况是否存在（不需要区分是哪一种），可以用合并的正则：

if ($line =~ /^\tCF=(CFU|CFB)-TS10-ACT-NONE-YES-NO-NONE-YES;$/) {
    # 匹配到任意一行
}

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