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!

0
codebyte 12 listopad 2018, 09:18

1 odpowiedź

Najlepsza 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
2
ikegami 12 listopad 2018, 10:06