regex - perl在bash内部的两个模式之间找到一个模式

Question

我正在寻找在 bash 文件 (*.sh) 中使用 perl 的正则表达式。我需要在两个模式之间找到一个动态模式。

例如：

some data 
.
.
.
Pattern1
.. data
Dynamic_Pattern
...data
Pattern2
.
.
data
.
.
Pattern1
..data
Pattern2

输出将是：

Pattern1
.. data
dynamic pattern
...data
Pattern2

我在网上找到了这段代码：

perl -n0e 'while (/Pattern1.*?((?=Pattern2)|(?=$))/sg) {$x=$&;print $x if $x=~/$Dynamic_Pattern/}' file

问题是，如果 Dynamic_Pattern id 是动态的，它就不起作用，只有当它是静态的

Answer 1

您必须将“动态”部分作为参数传递给 perl-oneliner。否则 perl 将其视为“他的”变量，这当然是未定义的。您可以使用 -switch 启用基本的命令行参数-s（看这里）。\Qbefore 模式应确保引用可能有问题的字符。

perl -sn0e 'while (/Pattern1.*?((?=Pattern2)|(?=$))/sg) {$x=$&;print $x if $x=~/\Q$dynpattern/}' -- -dynpattern="$Dynamic_Pattern" file 

Answer 2

一种选择是将两个参数传递给perl脚本。第一个是要搜索的动态模式，第二个是包含内容的文件。该脚本将使用触发器来提取两个边缘图案之间的线条范围。

评估价值：

searched_pattern="Dynamic_Pattern"

并运行perl脚本：

perl -ne '
    BEGIN { $pat = shift }
    if ( my $range = ( m/\A(?i)pattern1\b/ ... m/\A(?i)pattern2\b/ ) ) {
        $data .= $_;
        if ( ( q|E0| eq substr $range, -2 ) && ( $data =~ m/^\Q${pat}\E\b/m ) ) {
            printf qq|%s|, $data;
        }
        else {
            next;
        }
    }

    if ( $data ) { undef $data }
' "$searched_pattern" infile

它产生：

Pattern1
.. data
Dynamic_Pattern
...data
Pattern2