use Win32::Service qw'GetServices GetStatus';
use strict;
use POSIX;
use autodie;


my ($hostname, $servicename, $entry);
my (%status, @array);
my @state_name =  qw( '' Stopped START_PENDING STOP_PENDING
                         Started CONTINUE_PENDING PAUSE_PENDING
                         PAUSED  ERROR  );
use constant DATETIME => strftime("%Y%m%d%H%M%S", localtime);


#
my $filename = '/Perl/XiServiceList.txt';
sub buildarray()                                   #array subroutine
{

#  text file read and loaded on startup
#open (MYFILE, '>>XiPerlService.txt');              #open for write, o
+verwrite
#print MYFILE $theTime, " Start of perl module\n";
open( FILE, "< $filename" ) or die "Can't open $filename : $!";

while( <FILE> ) 
    {
            my $line = $_;
            chomp $line;
            push @array, ($line);
    } 
close FILE;                             
#
my $loop = 1;
while ($loop lt 4)                      #infinite loop if setting this
+ up to run continually i.e. service 
{                                       #part of - infinite loop 
my $count = 0;
my $entry;
foreach $entry (@array)                  #loops through entire loaded 
+array 
{
            open (MYFILE, ">> /Perl/daily\.". DATETIME."\.txt");      
+        #open for write, overwrite
            if (($count == 0))           #test 1st entry for host addr
+ess  
            {   $hostname = "$entry";
                $count = $count + 1;
            }
        else
            {    $servicename = "$entry";
        sleep(2);    
        &CheckServiceStatus($hostname,$servicename, \%status);
        $count = $count + 1;
        sleep(2);
            }
           close MYFILE;                
}

#sleep(300);                             #part of - infinite loop     
+              
$loop = $loop + 1;
}                                       #part of - infinite loop 
}
#
sub CheckServiceStatus()                # check service sub routine
{

GetStatus($hostname, $servicename, \%status);
my $state_no = $status{'CurrentState'};
printf MYFILE " ServiceStatus: %s %s %s \n", $hostname, $servicename, 
+$state_name[$state_no];  
}



sub main()
{
buildarray();                              #run array subroutine 
}

main();
[download]

Hi poj, Above is my script, if I have '', all the status are printed out ' ', if I remove '', all the status will be printed out 'stopped', it is not getting actual status, But when I run your script, I could get 'started' and 'stopped', then problem is I do not get all the services my OS have, only certain services. I do not really quite understand it.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.