Nagios-रिपोर्ट पर्ल मॉड्यूल से Nagios सेवा यूपी समय का प्रतिशत प्रिंट आउट कैसे

Question

मैं बाहर होस्ट यूपी समय प्रतिशत Nagios-Report Perl Module से निम्न कोड के साथ मुद्रित कर सकते हैं:

#!/usr/bin/perl 
use strict ; 
use Nagios::Report ; 
my $x = Nagios::Report->new(q<local_cgi localhost nagiosadmin>) 
    or die "Can't construct Nagios::Report object." ; 
$x->mkreport(
       [ qw(HOST_NAME PERCENT_TOTAL_TIME_UP) ], 

       sub { 
         my %F = @_; my $u = $F{PERCENT_TOTAL_TIME_UP}; $u =~ s/%//; 
        }, 
         0, 

       sub { 
         my $F = shift @_ ; 
       } 
) ; 
$x->debug_dump ; 

लेकिन कैसे मैं केवल सेवा प्रिंट कर सकते हैं यूपी समय प्रतिशत? मेरा मतलब केवल प्रतिशत मूल्य का उत्पादन करना है।

मैंने कई विकल्पों की कोशिश की लेकिन इसे सही नहीं मिला।

Answer 1

यह सेवा यूपी टाइम रिपोर्ट तैयार करेगा, लेकिन मैं पूरी रिपोर्ट के बजाय यूपी टाइम प्रतिशत मूल्य कैसे प्राप्त कर सकता हूं?

#!/usr/bin/perl 
use strict ; 

use Nagios::Report ; 

my $x = Nagios::Report->new(
          # Data source 
       q<local_cgi localhost nagiosadmin>, 
          # Report period 
       [ qw(24x7) ], 
          # Time period 
       'last7days', 
          # Service report 
       1, 
          # Pre-filter 
       sub { my %F = @_; my $u = $F{PERCENT_TOTAL_TIME_OK}; $u =~ s/%//; $u < 100 } 
       ) 
    or die "Can't construct Nagios::Report object." ; 

$x->mkreport(
     [ 
     qw(
      HOST_NAME 
      PERCENT_TOTAL_TIME_OK 
      DOWN 
      UP 
      OUTAGE 
     ) 
     ], 

     sub { my %F = @_; my $u = $F{PERCENT_TOTAL_TIME_OK}; $u =~ s/%//; $u < 100 }, 

     undef, 

     undef, 

     1, 

) ; 

$x->debug_dump() ;