检查Perl正则表达式中的替换条件

Question

我想用其他字符串替换文件中的特定模式。但是，只有在特定字符串在模式中不匹配时，我才需要替换。

我的代码如下：

use warnings;
use strict;

my $filename = 'C:\test_folder\file.txt';
my $pattern = undef;

my $read_handle = undef;
my $string = undef;

open($read_handle, "<", $filename)
        || die "$0: can't open $filename for reading: $!";

while ( <$read_handle> ){
     $string = $string.$_;
}


$pattern = qr/(TEST_CASE_NAME.*?:(.*?)\n.*?PRIORITY.*?:(\w\d).*?=cut)/s;

$string =~ s{$pattern}{$1\n\nsub $2\n{\n}\n}g;
print $string;

我已将整个文件存储在一个字符串中。我有以下问题：

如果在模式中，$3(第3次反向引用)不等于"P3"，那么应该只发生替换。我怎样才能做到这一点？

输入的一些样本数据如下：

=头2 Gen_001 TEST_CASE_NAME :GEN_001 优先事项:P0 RELEASE_INTRODUCED :7.4自动:是 STEP_NAME : step1 STEP_DESC :理解STEP_RESULT的示例desc :理解的示例结果 =切割 =头2 Gen_003 TEST_CASE_NAME :GEN_003 优先次序:P1 RELEASE_INTRODUCED :7.4自动:否 STEP_NAME : step1 STEP_DESC :理解第二个测试用例的示例desc STEP_RESULT :理解第二个测试用例的示例结果 =切割 =头2 Gen_004 TEST_CASE_NAME :GEN_004 优先事项:P3 RELEASE_INTRODUCED :7.4自动:否 STEP_NAME : step1 STEP_DESC :理解第三个测试用例的示例desc STEP_RESULT :理解第三个测试用例的示例结果 =切割

Answer 1

您可以通过消极的展望来实现这一点：

(TEST_CASE_NAME.*?:(.*?)\n.*?PRIORITY.*?:(?!P3)(\w\d).*?=cut)
                                         ^^^^^^

请参阅演示

展望(?!P3)确保(\w\d)匹配的接下来的2个字符不等于P3。