Question

我需要在Perl中创建一个简单的浏览器用户代理解析器。我找到了一个PHP代码，但我的知识相当有限（特别是在正则表达式中）。所以，这是我想写的Perl等价的代码。

if ($l = ereg($pattern, $agent, $a = array()))
        {
          array_push($found, array("product" => $a[1], "version" => $a[3], "comment" => $a[6]));
          $agent = substr($agent, $l);
        }

$ agent是作为参数传递的用户代理字符串，并返回$ found的关联数组数组，每个关联数组定义代理字符串中的产品/注释（关联数组的键是product，version，comment）。 $ pattern是我正在搜索的用户代理正则表达式，我已经知道了。

那么，这在Perl中看起来怎么样？

编辑：似乎对于我是否需要Perl兼容的正则表达式或Perl中的等效函数存在疑惑。我正在寻找一个Perl函数和语法来做同样的事情。

Answer 1

您可以使用CPAN module HTTP::BrowserDetect嗅探有关浏览器及其运行设备的各种信息，包括但不限于版本，引擎和供应商。

Answer 2

您的PHP脚本可以用Perl编写，如：

my @found;
if ($agent =~ s/$pattern//) {
  push @found, {product => $1, version => $3, comment => $6};
}

为了打印数组的内容@found：

use Data::Dumper;
print Dumper(\@found);

Answer 3

自PHP 5.3.0起，不推荐使用POSIX (ereg_*)函数。如果您使用PCRE (preg_*)函数，它们也可以在perl中使用。 PCRE是Perl Compatible Regular Expressions的缩写。如果您需要任何帮助来重写PCRE的模式，请发布原始模式。

如何在Perl中创建一个简单的浏览器用户代理解析器？

3 个答案: