regex - 如何从下一行读取字符串？

Question

我有这个：

//VIOLATION_IGNORED
T_CH  *i_pCH2string;

我想从第二行阅读 //VIOLATION_IGNORED。我如何使用正则表达式进行处理？

我正在使用理解 API编写它。理解是一个静态分析工具，通过perl使用它自己的API来编写脚本。我只需要一个正则表达式来读取第一行，从第二行开始。

Answer 1

您没有阅读前一行...您只记得上面的内容。伪代码：

while(<>) {
   if ((/\/\/VIOLATION_IGNORED/) {$ignore=1;next;} # ignore violation on next line
   if (violation($_)) {                            # yo' bad?
       if($ignore) {ignore=0; next;}               # never mind
    } else {
       blow_up($_);                                # take this!
    }
   ignore=0;                                       # reset flag
}

Answer 2

这是否实现了您的目标？

#!/usr/bin/perl
use warnings;
use strict;

my @file = ('//VIOLATION_IGNORED', 'T_CH  *i_pCH2string');

my $current_line = "";

foreach (@file){
    my $previous_line = $current_line;
    $current_line = $_;
        if ($current_line =~ /T_CH.*?/ ){
            print "$previous_line\n"
            # Do something else? ...
        }
}

输出：

//VIOLATION_IGNORED

或者，如果您只是想忽略包含 //VIOLATION_IGNORED 的行：

foreach (@array1){
    next if $_ =~ /\/\/VIOLATION_IGNORED/;
    print "$_\n";
    # Do something else? ...
}

输出：

T_CH  *i_pCH2string