使用Perl脚本查询Jenkins的工作列表

Question

我不确定这个问题是否重复，但是我找不到任何有关此问题的示例。 有什么方法可以查询詹金斯的工作清单。 我尝试使用cpan提供的Jenkins :: API，但是$ jenkins-> current_status（）-> jobs（）返回哈希值列表。 我不确定我是否应该以某种方式将其翻译成英文可读的工作。 有小费吗？？

Answer 1

看看http://metacpan.org/pod/Jenkins::API 。

$jenkins->current_status()确实返回哈希值。 每个作业哈希包含键“颜色”，“名称”和“ URL”。 但是它们嵌套在多个级别的列表中。 我发现Data::Dumper有助于查看完整结构。

---

当前状态

返回API返回的服务器的当前状态。 这是一个散列，其中包含正在发生的事情的相当全面的列表。

$jenkins->current_status();
# {
#   'assignedLabels' => [
#     {}
#   ],
#   'description' => undef,
#   'jobs' => [
#     {
#       'color' => 'blue',
#       'name' => 'Jenkins-API',
#       'url' => 'http://jenkins:8080/job/Jenkins-API/'
#     },
# ...
#   ]

例：

use Jenkins::API;
$jenkins = Jenkins::API->new({ base_url => 'http://localhost:8080' });

@statuses = $jenkins->current_status();

for ($i = 0;$i <= $#{$statuses[0]{'jobs'}};$i++) {
  print $statuses[0]{'jobs'}[$i]{'name'},"\n";
}