perl - 使用 Perl 解码 URI 相关实体

Question

我什至可能没有以正确的方式提及这一点，所以我提前道歉。我们的服务器日志不断向我们展示一种编码的攻击方式。下面是一个例子....

http://somecompany.com/script.pl?var=%20%D1%EB........ (etc etc)

我熟悉使用 Perl(使用 HTML::Entities)编码和解码 HTML 实体，但我什至不确定如何引用这种解码方式。我希望能够编写一个脚本来解码这些 URI 编码(？)。是否有任何人知道的模块可以为我指明正确的方向？

妮琪

Answer 1

使用 URI::Escape转义和取消转义 URI 编码字符串的模块。

例子:

use strict;
use warnings;

use URI::Escape;

my $uri = "http://somecompany.com/script.pl?var=%20%D1%EB";
my $decoded = uri_unescape( $uri );
print $decoded, "\n";