json - 如何使用 Perl 在 Redmine 中创建问题

Question

我正在使用下面的代码在 Redmine 上创建问题，但它不起作用

use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new;

$key='f4t3y2f4t3y2f4t23yfy4';

my $uri = 'http://localhost/redmine/issues/new';

my $json = '{
  "issue": {
  "project_id": 1,     // my project has different number.
  "subject": "Example111",
  "priority_id": 4,
  "commit": "Create"
 }
}';

my $req = HTTP::Request->new( 'POST', $uri );

$req->header( 'Content-Type' => 'application/json', 'X-Redmine-API-Key' =>  $key);

$req->content( $json );

 print Dumper $ua->request($req);

该代码没有在 redmine 中产生问题，但现在该代码运行良好。

这段代码是正确的！！！

问候：@HåkonHægland

标签： jsonperlrequestredmine