php - 如何在 perl 更改用户代理名称时通过 php 限制 perl 机器人

Question

假设我们有以下 perl 脚本

    use LWP;
    use strict;
    use warnings;
    use LWP::UserAgent;


    my $ua = LWP::UserAgent->new;
    $ua->agent('NokiaN97i/SymbianOS/9.1 Series60/3.0');

    my $response = $ua->get('http://myhost.com');

    if ($response->is_success) print $response->decoded_content;
    else die $response->status_line;

它只是连接到 myhost.com/index.php 页面并打印其内容。在 index.php 文件中我有

 file_put_contents('agent.txt', $_SERVER['HTTP_USER_AGENT'], FILE_APPEND);

行。现在用户代理字符串不包含“libwww-perl”。我如何识别 perl bot 并对其进行限制？

Answer 1

你不能，USER_AGENT 字符串虽然是帮助你​​识别客户端“浏览器”的唯一因素，但基本上也是用户输入。如果他们更改它 - 您将无能为力。