Question

我正在尝试使用Perl在Asana中创建一个任务。我使用以下模块：

WWW ::卷曲::简单
JSON
HTTP ::请求

这是我的代码。

my %data = (
    "data" => {
        "workspace" => "##########", #$config->get('asana/workspace_id'),
        "name" => "system error",
        "assignee" => "me",
        "projects" => "##########",
    },
);
my @header = ('Authorization' => 'Bearer '.$personal_access_token));
my $curl = WWW::Curl::Simple->new();
my $uri = $config->get('asana/api_uri');
my $content = JSON->new->utf8->encode(\%data);
my $r = HTTP::Request->new(
    'POST',
    $uri,
    \@header,
    $content
);
my $res = $curl->request($r);

当我打印$ content变量时，它看起来像这样。

{"data":{"workspace":"##########","name":"CBC FZDS Billing - System Error"}}

当我将$ r变量打印为字符串时，它看起来像这样。（“个人访问令牌”显示我提供的个人访问令牌。）

POST https://app.asana.com/api/1.0/tasks
Authorization: Bearer <personal access token>

{"data":{"workspace":"##########","name":"CBC FZDS Billing - System Error"}}

$res->content的结果是：

'{"errors":[{"message":"missing `workspace` field, and no `parent` or `projects` specified","help":"For more information on API status codes and how to handle them, read the docs on errors: https://asana.com/developers/documentation/getting-started/errors"}]}'

为什么这表明工作区字段丢失了？

Answer 1

在我看来，您需要将内容类型标头设置为“application / json”，因为您将数据作为json发送。

为了帮助您调试未来的问题，您可以在命令行中尝试我们的curl。在这种特殊情况下，你会注意到如果你添加-H“Content-Type：application / json”它可以工作，如果你把它遗漏它会给你同样的错误。

（作品）卷曲-H“授权：持票人????” -X POST“https://app.asana.com/api/1.0/tasks” - d“{\”data \“：{\”workspace \“：ZZZZZZZ，\”name \“：\”test \“}}”-H“内容类型：应用/ JSON“

VS （不起作用）卷曲-H“授权：持票人????” -X POST“https://app.asana.com/api/1.0/tasks” - d“{\”data \“：{\”workspace \“：ZZZZZZZ，\”name \“：\”test \“}}”

使用Perl创建Asana任务

1 个答案: