【demo】Perl 获取AIX进程数量HTTP给远程接收端

最新推荐文章于 2021-05-10 10:01:58 发布

高尔夫golf

最新推荐文章于 2021-05-10 10:01:58 发布

阅读量287

点赞数

分类专栏： Perl AIX

本文链接：https://blog.csdn.net/konglongaa/article/details/80476706

版权

Perl 同时被 2 个专栏收录

81 篇文章

订阅专栏

AIX

4 篇文章

订阅专栏

#!/usr/bin/perl

use Time::Local;
#use Time::Format;
use HTTP::Request::Common;
use Data::Dumper;
use HTTP::Headers;
use LWP::UserAgent;
use Encode;
use Test::More;
use strict;

eval{
my @result = readpipe('ps -ef | grep "afalsr32" | grep -v grep | wc -l');
#print "===="."@result"."\n";
my $par = @result[0] -1;
#print $par;
&PostToWebService($par);
};

if($@)
{
print "it is exception\n".$@;
}



sub PostToWebService(){

my $cmd_value=@_[0];
#print "into PostToWebService\n";
#print $cmd_value."\n";
eval{
my $ua = LWP::UserAgent->new;
my $webservice_url = 'http://10.4.146.9:12731/v2/push';

my $metric = 'process.processcount';
my $endpoint = '10.2.239.101';
my $timestamp = time();
my $step = 60;
my $value = $cmd_value + 0;
my $valuecount = $cmd_value + 0;
my $counterType = 'GAUGE';
my $tags ='{"sysname":"CNAPS","CNAPS-APP-PRD-instance-101":"processCount","PROCESS":"CNAPS_afalsr32"}';

my $my_content = "[{\"metric\":\"$metric\",\"endpoint\":\"$endpoint\",\"timestamp\":$timestamp,\"step\":$step,\"value\":$value,\"valuecount\":$valuecount,\"counterType\":\"$counterType\",\"tags\":$tags}]";

print $my_content."\n";

my $reponse = $ua->post( $webservice_url,Content => $my_content,'Content_Type' => 'application/json');

#print Data::Dumper->Dumper($reponse);
};

if($@)
{
print $@."\n";
}

print "send to Macchiato is over\n";
}

1