in reply to how to print out windows service status

> $status{$_}

Where do you set/change the value of $_?

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

Replies are listed 'Best First'.
Re^2: how to print out windows service status
by ytjPerl (Scribe) on Jul 31, 2017 at 14:36 UTC
    it is not getting from Win32::Service::GetStatus('', $servicename, \%status); ?
[reply]
      it is not getting from Win32::Service::GetStatus('', $servicename, \%status); ?

      There is nothing in the documentation to indicate that. Based on the test file this seems to be how to use the module (untested since I'm not on windows at the moment):

      my %services;
Win32::Service::GetServices("", \%services);
while ( my ($k,$v) = each %services ) {
    print "$k\t$v\n";
    my %status;
    Win32::Service::GetStatus("", $v, \%status);
    while ( my ($k,$v) = each %status ) {
        print "\t$k\t$v\n";
    }
}

      [download]
[reply]
[d/l]
        I checked hash %status, one of its key is 'CurrentState', so I am trying to do this 
        Win32::Service::GetStatus($hostname, $servicename, \%status);
print MYFILE " ServiceStatus: ", $hostname, $servicename, $status{Curr
+entState}, "\n";

        [download]
        , it is not working. I also tried to use this to map the number I defined for each status, it is still not working. 
         if ($status{CurrentState} eq 4 )
       {print MYFILE " ServiceStatus: ", $hostname, " ", $servicename,
+ " ", "is running\n";}
       else {print MYFILE " ServiceStatus: ", $hostname, " ", $service
+name, " ", "is not running\n";}

        [download]
        4 is map to 'Started' I have service is Started, but all my statements 'is not running'.
[reply]
[d/l]
[select]

      I'm guessing you want $status{'CurrentState'}. Try

      #!perl
use strict;
use Win32::Service qw'GetServices GetStatus';

my @state_name =  qw( '' Stopped START_PENDING STOP_PENDING
                         Started CONTINUE_PENDING PAUSE_PENDING
                         PAUSED  ERROR  );

my $hostname = 'localhost'; 
my %service=();
GetServices($hostname,\%service) or die "$!";

for my $name (sort keys %service){
  
  my $shortname = $service{$name};
  my %status = ();
 
  # keys to %status
  # CheckPoint 
  # ControlsAccepted
  # CurrentState
  # ServiceSpecificExitCode
  # ServiceType
  # WaitHint
  # Win32ExitCode
  
  GetStatus($hostname, $shortname, \%status);
  my $state_no = $status{'CurrentState'};
  printf  " ServiceStatus: %s %s %s \n", 
        $hostname, $shortname, $state_name[$state_no];  
}

      [download]
      poj
[reply]
[d/l]
[select]
        Hi poj, Can I know what '' is for in the front of your array @state_name? Thanks!
[reply]

In Section Seekers of Perl Wisdom