如何在Perl中编码HTTP GET查询字符串？

在Perl中编码HTTP GET查询字符串，可以使用URI模块中的uri_escape函数。这个函数可以将特殊字符转义，以便在HTTP GET查询字符串中安全使用。

以下是一个简单的示例代码：

use URI;

my $uri = URI->new('http://example.com/search');
my $query = 'Perl 编程';

$uri->query_form(q => $query);
my $encoded_query = $uri->as_string;

print "Encoded query string: $encoded_query\n";

在这个示例中，我们首先创建了一个URI对象，并指定了一个基本的URL。然后，我们将查询字符串设置为Perl 编程，并使用uri_escape函数对其进行转义。最后，我们将编码后的查询字符串打印到控制台上。

输出结果将是：

Encoded query string: http://example.com/search?q=Perl+%E7%BC%96%E7%A8%8B

在这个示例中，我们使用了URI模块中的query_form函数来设置查询字符串。这个函数接受一个键值对的哈希表，可以同时设置多个查询参数。在这个示例中，我们只设置了一个名为q的查询参数，其值为Perl 编程。

最后，我们使用as_string函数将URI对象转换为字符串，以便打印到控制台上。这个字符串包含了基本URL和编码后的查询字符串。