android user-agent iso-8859-1,perl - 如何使用LWP :: UserAgent强制对表单数据进行ISO-8859-1编码？ - 堆栈内存溢出...

呵呵。 :-)这与最近十几个Perl版本中对Unicode的支持不断增长以及URI模块使用的regex功能\\C (更确切地说，由URI::Escape 。

为什么使用URI模块？ 因为它用于通过HTTP::Request::Common进行表单和URL编码。

同时，这是我写的一个脚本，以提醒自己这个问题有多么棘手，特别是因为URI模块是如此频繁使用：

use 5.010;

use utf8;

# Perl and URI.pm might behave differently when you encode your script in

# Latin1 and drop the utf8 pragma.

use Encode;

use URI;

use Test::More;

use constant C3A8 => 'text=%C3%A8';

use constant E8 => 'text=%E8';

diag "Perl $^V";

diag "URI.pm $URI::VERSION";

my $chars = 'è';

my $octets = encode 'iso-8859-1', $chars;

my $uri = URI->new('http:');

$uri->query_form( text => $chars );

is $uri->query, C3A8, C3A8;

my @exp;

given ( "$^V $URI::VERSION" ) {

when ( 'v5.12.3 1.56' ) { @exp = ( E8, C3A8 ) }

when ( 'v5.10.1 1.54' ) { @exp = ( C3A8, C3A8 ) }

when ( 'v5.10.1 1.58' ) { @exp = ( C3A8, C3A8 ) }

default { die 'not tested :-)' }

}

$uri->query_form( text => $octets );

is $uri->query, $exp[0], $exp[0];

utf8::upgrade $octets;

$uri->query_form( text => $octets );

is $uri->query, $exp[1], $exp[1];

done_testing;

所以我得到的(在Windows和Cygwin上)是：

C:\Windows\system32 :: perl \Opt\Cygwin\tmp\uri.pl

# Perl v5.12.3

# URI.pm 1.56

ok 1 - text=%C3%A8

ok 2 - text=%E8

ok 3 - text=%C3%A8

1..3

和：

MiLu@Dago: ~/comp > perl /tmp/uri.pl

# Perl v5.10.1

# URI.pm 1.54

ok 1 - text=%C3%A8

ok 2 - text=%C3%A8

ok 3 - text=%C3%A8

1..3

UPDATE

您可以手工制作请求正文：

use utf8;

use Encode;

use LWP::UserAgent;

my $chars = 'ölè';

my $octets = encode( 'iso-8859-1', $chars );

my $body = 'text=' .

join '',

map { $o = ord $_; $o < 128 ? $_ : sprintf '%%%X', $o }

split //, $octets;

my $uri = 'http://localhost:8080/';

my $req = HTTP::Request->new( POST => $uri, [], $body );

print $req->as_string;

my $ua = LWP::UserAgent->new;

my $rsp = $ua->request( $req );

print $rsp->as_string;