无法使用范围运算符从文件中查找匹配的文本

Question

我无法在下面的程序中使用范围运算符来查找提供的 2 个文本的开头和结尾之间的文本，即 $kw1 和 $kw2。我正在从名为 oiutput.txt 的文件中读取 $kw1 和 @kw2在这个节目中。 有人可以帮忙说明为什么我的范围运算符没有给出我想要的 o/p 吗？

my $file = "output.txt";

my $kw1 = "Session Initiation Protocol (REGISTER)";
my $kw2 = "CSeq: 3 REGISTER";   

open(my $fh, '<', $file) or die $!;
my @content = <$fh>;

#print @content;

foreach (@content) {

#print $kw1;
#print $kw2;

if (/$kw1/ .. /$kw2/) {
    print "$_\n";
    }
}

我从 Is 搜索的示例数据：

CSeq: 3 REGISTER
Session Initiation Protocol (REGISTER)
                Temp
                Temp
                Session Initiation Protocol (REGISTER)
        Session Initiation Protocol (REGISTER)
CSeq: 2 REGISTER
CSeq: 1 REGISTER
CSeq: 0 REGISTER

Answer 1

好的，我认为首先 - 你的问题是范围运算符是错误的方式，因为CSeq: 3 REGISTER 出现在文件中之前 Session Initiation Protocol \(REGISTER\)。

但是你已经评论了一些测试结果：

1 不行 1 - 数据结构应该相同 # 失败的测试'数据结构应该相同' # 在 E:\Automation Related\Perl Scripts - ALL\IMS_debugging\test.pl 第 17 行。# 结构开始不同at: # $got->{j} = '867-5309x' # $expected->{j} = '867-5309' # 看起来你没有通过 1 的 1 次测试

这与您提供给我们的样本完全不符 - 数据中不存在数字，x 也不存在。

但无论如何，这确实有效：

#!/usr/bin/perl

use strict;
use warnings;
my $file = "output.txt";


my $kw1 = "Session Initiation Protocol (REGISTER)";
my $kw2 = "CSeq: 3 REGISTER";   

while (<DATA>) {

   if ( /\Q$kw2\E/ ... /\Q$kw1\E/ ) {
      print;
   }
}


__DATA__
CSeq: 3 REGISTER
Session Initiation Protocol (REGISTER)
                Temp
                Temp
                Session Initiation Protocol (REGISTER)
        Session Initiation Protocol (REGISTER)
CSeq: 2 REGISTER
CSeq: 1 REGISTER
CSeq: 0 REGISTER

您需要\Q \E，因为() 是一个正则表达式元字符。你可以改用quotemeta。

如果您需要匹配“会话启动协议”的 second 实例，则匹配空格即可。

if ( /\Q$kw2\E/ ... /\s\Q$kw1\E/ ) 

Answer 2

我相信这可能会，尚未测试，所以请匹配。

  use strict;
  use warnings;
  my $file = "output.txt";

  open(my $fh, '<', $file) or die $!;
  while ( <$fh> ) {

  if (/Session Initiation Protocol \(REGISTER\)/ .. /CSeq: 3 REGISTER/) {
      print "$_\n";
      }
  }