Mój fragment jak poniżej, za pomocą curl mogę wysłać ciąg Unicode na serwer i po push powiadomić o wiadomości na mój telefon komórkowy, wyświetlając poprawnie chińskie znaki na telefonie.
curl "https://oapi.dingtalk.com/robot/send?access_token=$ACCESS_TOKEN" \
-H 'Content-Type: application/json' \
-d '{"msgtype": "text", "text": {
"content": "\u6d4b\u8bd5",
}}'
Ale kiedy używam biblioteki Perl LWP do wysyłania tej samej zawartości na serwer, w aplikacji wyświetlane jest tylko 6d4b8bd5. Próbowałem użyć tcpdump do porównania różnicy między curl a wysłanym buforem LWP, ale ponieważ jest to serwer https, nie działa.
#!/usr/bin/perl -w
use strict;
use warnings;
use Cpanel::JSON::XS qw( encode_json );
# Create a user agent object
use LWP::UserAgent;
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
my $ua = LWP::UserAgent->new;
$ua->agent("curl/7.47.0");
# Create a request
my $req = HTTP::Request->new(POST => 'https://oapi.dingtalk.com/robot/send?access_token=bf47148ea6a1b125395f9313873ac508');
$req->content_type('application/json;charset=utf-8');
my $var='\u6d4b\u8bd5';
my $message = encode_json({ msgtype => "text", text => { content => $var } });
$req->content($message);
# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# Check the outcome of the response
if ($res->is_success) {
print $res->content;
} else {
print $res->status_line, "n";
}
Jakieś sugestie? Dzięki!
1 odpowiedź
Wcześniej nie kodowałeś. Teraz kodujesz podwójnie. encode_json
już obsługuje kodowanie do JSON, więc nie rób tego też ręcznie!
Jeśli podasz 12 znaków \u6d4b\u8bd5
, otrzyma 12 znaków \u6d4b\u8bd5
.
Jeśli podasz dwa znaki U+6D4B i U+8BD5, otrzyma dwa znaki U+6D4B i U+8BD5.
my $var = chr(0x6D4B) . chr(0x8BD5);
my $var = "\x{6D4B}\x{8BD5}";
my $var = "\N{U+6D4B}\N{U+8BD5}";
use utf8; my $var = "测试";
- itp
Podobne pytania
Nowe pytania
perl
Perl to proceduralny, wysokopoziomowy, dynamiczny język programowania ogólnego przeznaczenia, znany z natywnej obsługi wyrażeń regularnych i możliwości analizowania ciągów. Użyj tego tagu w przypadku ogólnych pytań dotyczących Perla. W przypadku rzeczy związanych z nowym (ale pokrewnym) językiem Raku (dawniej „Perl 6”), użyj tagu raku. W przypadku wyrażeń regularnych w stylu Perla w innych językach użyj znacznika regex lub, jeśli są one oparte na bibliotece PCRE, znacznika pcre.