Perl：模式匹配字符串然后打印下一行

Question

我正在使用 Net::Whois::Raw 从文本文件中查询域列表，然后对其进行解析以输出每个域的相关信息。

一切都很顺利，直到我达到 Nominet 结果，因为我需要的信息永远不会与我正在模式匹配的信息在同一行。

例如：

名称服务器：
ns.mistral.co.uk 195.184.229.229

所以我需要做的是“名称服务器：”的模式匹配，然后显示下一行或多行，但我无法管理它。

我已经阅读了这里的所有答案，但它们要么似乎不适用于我的情况，要么让我更加困惑，因为我只是一只简单的熊。

我使用的代码如下：

   while ($record = <DOMAINS>) {
     $domaininfo = whois($record);

    if ($domaininfo=~ m/Name servers:(.*?)\n/){
    print "Nameserver: $1\n";
      }

}

我尝试了一个 Stackoverflow 的示例，其中

<DOMAINS>;

将采用下一行，但这对我不起作用，我认为这是因为我们已经将其内容读入 $domaininfo 中。

编辑：忘了说谢谢！ 多么粗鲁。

Answer 1

那么，$domaininfo 字符串包含您的域？

您可能需要的是正则表达式末尾的 m 参数。这会将您的字符串视为多行字符串（事实就是如此）。然后，您可以匹配 \n 字符。这对我有用：

my $domaininfo =<<DATA;
Name servers:
ns.mistral.co.uk 195.184.229.229
DATA

$domaininfo =~ m/Name servers:\n(\S+)\s+(\S+)/m;
print "Server name = $1\n";
print "IP Address = $2\n";

现在，我可以匹配 Nameservers: 行末尾的 \n 并捕获下一行的名称和 IP 地址。

这可能需要稍微修改一下才能使其在您的情况下工作。

Answer 2

这是一半的问题，也许是一半的答案（问题在这里，因为我还没有被允许写评论......）。好的，我们开始吧：

名称服务器：
ns.mistral.co.uk 195.184.229.229

这是您正在解析的文件中的条目的样子吗？接下来会发生什么——更多的域名和IP地址？中间会有空行吗？

不管怎样，我认为你的问题可能（部分？）与你逐行读取文件有关。一旦您到达 IP 地址行，有关“名称服务器：”的信息就会消失。如果您逐行查看文件，多行匹配将无济于事。因此我建议切换到段落模式：

{
   local $/ = ''; # one paragraph instead of one line constitutes a record
   while ($record = <DOMAINS>) {
      # $record will now contain all consecutive lines that were NOT separated
      # by blank lines; once there are >= 1 blank lines $record will have a
      # new value

      # do stuff, e.g. pattern matching
   }
}

但是你说

我尝试过 Stackoverflow 的一个例子，其中

<域>;

将采取下一行，但这对我不起作用，我认为这是因为我们已经将其内容读入 $domaininfo。

那么也许您已经尝试过我刚才建议的方法？另一种方法是添加另一个变量（$indicator 或其他变量），一旦读取“名称服务器：”，您将其设置为 1，并且只要它等于 1，所有后续行都将被视为包含数据你需要。然而，这是否可行取决于您始终了解数据文件还包含哪些内容。

我希望这里的内容对您有所帮助。如果有任何疑问，请询问:)