解析：：ABNF perl用法

Question

我需要解析SIP头( ABNF格式的grammar)，并验证我的头字符串是否正确。

(示例:检查"Accept: application/sdp，application/3gpp-imp+xml“之类的字符串以提供测试用例通过/失败)。

目前，我正在尝试使用perl Parse::ABNF。现在我不能理解这个上下文中的示例用法。

Answer 1

我的Parse::ABNF模块读取ABNF语法，并允许您访问语法中的规则。它会告诉您类似于“floating-point-number规则引用digit规则”之类的内容，但是它不会为浮点数生成解析器。您可以使用该模块将适当的ABNF语法转换为解析器生成器(如Parse::RecDescent或Marpa2 )可以使用的格式。这种转换的示例脚本包含在发行版中，名为eg/abnf2xlx.pl。但是请注意，您链接到的页面上的语法并不完全符合Parse::ABNF所期望的符合标准的格式。

Answer 2

你可以这样使用这个模块：

  use Parse::ABNF;
  use Test::More;
  use Data::Dumper;
  my $parser = Parse::ABNF->new;
  my $rules = $parser->parse($sip_message);
  ok(defined $rules,'The SIP messgae is parseable') or diag(Dumper($sip_message));

只解析头部的更简单的方法：

  use Test::More;
  use Data::Dumper;
  ok($sip_message =~ m!Accept: application/sdp,application/3gpp-imp+xml!,'The SIP header looks found') or diag(Dumper($sip_message));