当前位置:首页 > 开发 > 开源软件 > 正文

zabbix_api之perl语言写法

发表于: 2015-04-08   作者:ronin47   来源:转载   浏览:
摘要: zabbix_api网上比较多的写法是python或curl。上次我用java--http://bossr.iteye.com/blog/2195679,这次用perl。for example: #!/usr/bin/perl use 5.010 ; use strict ; use warnings ; use JSON :: RPC :: Client ; use

zabbix_api网上比较多的写法是python或curl。上次我用java--http://bossr.iteye.com/blog/2195679,这次用perl。for example:

#!/usr/bin/perl

use 5.010 ;
use strict ;
use warnings ;
use JSON :: RPC :: Client ;
use Data :: Dumper ;

# Authenticate yourself
my $client = new JSON :: RPC :: Client ;
my $url = 'http://testserver.zabbix.com/zabbix/api_jsonrpc.php' ;
my $authID ;
my $response ;

my $json = {
jsonrpc => "2.0" ,
method => "user.login" ,
params => {
user => "admin" ,
password => "zabbix"
} ,
id => 1
} ;

$response = $client -> call ( $url , $json ) ;

# Check if response was successful
die "Authentication failed\n" unless $response -> content -> { 'result' } ;

$authID = $response -> content -> { 'result' } ;
print "Authentication successful. Auth ID: " . $authID . "\n" ;

# Get list of all hosts using authID

$json = {
jsonrpc => '2.0' ,
method => 'host.get' ,
params =>
{
output => [ 'hostid' , 'name' ] , # get only host id and host name
sortfield => 'name' ,        # sort by host name
} ,
id => 2 ,
auth => "$authID" ,
} ;
$response = $client -> call ( $url , $json ) ;

# Check if response was successful
die "host.get failed\n" unless $response -> content -> {result } ;

print "List of hosts\n-----------------------------\n" ;
foreach my $host ( @ { $response -> content -> {result } } ) {
print "Host ID: " . $host -> {hostid } . " Host: " . $host -> {name } . "\n" ;
}

 

zabbix_api之perl语言写法

  • 0

    开心

    开心

  • 0

    板砖

    板砖

  • 0

    感动

    感动

  • 0

    有用

    有用

  • 0

    疑问

    疑问

  • 0

    难过

    难过

  • 0

    无聊

    无聊

  • 0

    震惊

    震惊

编辑推荐
安装php软件包: 安装文本浏览器 安装apache的帮助文档: 测试下是否ok 启动Apache服务关闭火墙:
Perl IDE之Perl Express和Eclipse+EPIC+PadWalker 8/15/2010 11:42:34 AM 一 初级 1)Notepad++ (
Perl IDE之Perl Express和Eclipse+EPIC+PadWalker 一 初级 1)Notepad++ (编辑和查看Perl) 2)Kom
Perl IDE之Perl Express和Eclipse+EPIC+PadWalker 8/15/2010 11:42:34 AM 一 初级 1)Notepad++ (
(每隔一段时间整理几门语言的HelloWorld写法,更新中......) A开头 1、Android(版本4.2.2) Activi
每个C程序员都知道同一个for循环语句可以有两种写法: A: for (i = 0; i < cnt; i++){ } B: for (
1. 题目 2. 代码与输出 ch6-family-name.pl 1 # ------------------------------------------------
1. 习题 2. 代码与输出 cat_reverse.pl 1 # ----------------------------------------------------
初学Perl的感受之数据类型 Perl中四种基本数据类型(就我目前所知):标量、数组、列表、哈希。 标
首先在建个DbUtil文件,里面返回Connection、关闭方法等,如下所示: import java.sql.Connection;
版权所有 IT知识库 CopyRight © 2009-2015 IT知识库 IT610.com , All Rights Reserved. 京ICP备09083238号