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

Question

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

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

我熟悉使用 Perl 编码和解码 HTML 实体（使用 HTML::Entities），但我什至不确定如何引用这种解码方式。我希望能够编写一个脚本来解码这些 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";

Answer 2

有在线资源，例如http://www.albionresearch.com/misc/urlencode.php用于对字符串进行快速编码/解码。

以编程方式，您可以这样做：

use URI::Escape;
my $str  = uri_unescape("%20%D1%EB");
print $str . "\n";

或者简单地说：

perl -MURI::Escape -wle'print uri_unescape("%20%D1%EB");'