Как передать переменную в HTTP Post API в Perl? - PullRequest
Новая
       32

Как передать переменную в HTTP Post API в Perl?

0 голосов
/ 12 ноября 2018

Мой фрагмент, как показано ниже, я погуглил и не могу найти решение для передачи переменной в запрос поста в моей цитируемой строке. Большинство результатов Google просто передают простые пары строк значения ключа Json в размещать контент. Но мне нужно передать параметр во внутреннюю часть значения Json и вызвать соответствующий API REST. какие-либо предложения? Спасибо! 

#!/usr/bin/perl -w
use strict;
use warnings;

# Create a user agent object
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1");


# Create a request
my $req = HTTP::Request->new(POST => 'https://oapi.dingtalk.com/robot/send?access_token=foofb73f');

$req->content_type('application/json');

my $var1="value from var";

# works fine
my $message = '{"msgtype": "text","text":{"content":"plain string ok"}}';

# failed to compile
# my $message = '{"msgtype": "text","text":{"content":$var1}}';


$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";
}

1 Ответ

0 голосов
/ 12 ноября 2018

Вы неправильно преобразовали значение в строку JSON. 

use Cpanel::JSON::XS qw( encode_json );

my $message = encode_json({ msgtype => "text", text => { content => $var1 } });
...