Perlでのkintoneデータ取得について

kintone 開発相談
1

現在、Perlでkintoneのデータを取得しようとしていますが、下記のようなメッセージが表示されデータが取得できません。

malformed JSON string, neither array, object, number, string or atom, at character offset
0 (before “<!DOCTYPE html>\r<…”) at json_test.pl line 38.

どうすれば、この問題を解決できるのでしょうか？
実行スクリプトは下記です。

my $ua = LWP::UserAgent->new;
my $url = “https://xxxxx.cybozu.com/k/v1/record.json?app=xx&id=xx”;
my $req = HTTP::Request->new(GET => $url);
$req->header(“Host” => “xxxxx.cybozu.com” & “:443”);
$req->header(“X-Cybozu-Authorization” => “xxxxxxxxxxxxxxxxxxxxxxxxx”);
$req->header(“Content-Type” => “application/json”);

my $res = $ua->request($req);
print Dumper $res;

if ($res->is_success) {
my $json = JSON::XS->new->decode($res->content);
my $output = $json->{issue}->{subject} . " - " . $json->{issue}->{status}->{name};
print encode(‘utf8’, $output),“”;
}else{
print $res->status_line, “”;
}

よろしくお願いいたします。

2

Saitioさん

PerlでREST APIコールしたことなく、また解決されたかもしれませんが、・・・

ドキュメントにも記載がありますが、クエリでアプリIDとレコードIDを指定する場合にはリクエストボディは空ですので、その構造を伝えるcontent-type: application/jsonは不要で、「不正なJSON文字列です」でエラーになります。これが原因としては有力かと思われますが、いかがでしょうか。

【参考】
・https://www.joyzo.co.jp/blog/699

3

Ryu Yamashita様、

ご回答ありがとうございます。
content-type: application/jsonが不要なのと、ホスト定義の書き方を間違っていたようです。
誤 : “Host” => “xxxxx.cybozu.com” & “:443”
正 : “Host” => “xxxxx.cybozu.com:443”

4

先の書き込みでお名前をタイプミスしていました。申し訳ないです。
解決されていて良かったです！