Hello again,
I apologize for all the questions that I have asked
in the last week, but here is one more. I have the
below block of code that works fine, but I want to
check the service of a remote server that is on a
different domain.
sub MS_CheckService {
my($CheckService) = @_;
my
Hello, I have this small snippet of code that if I
print out the split, everything looks just fine, but
if I set the split to a variable and then try to print
it does not work. For example:
foreach my $host () {
chomp;
if($host =~ /\d+~$CheckHost~.+/) {
print split /\d+~\d+~/, $h
Hi,
The following is a sample of code that i can't seem
to get working:
use strict;
my %sFilePath= 'c:\some\path\file.txt';
mysub();
sub mysub {
open (MYFILE, $sFilePath);
foreach my $sLine () {
print "$sLine\n";
}
close (MYFILE);
}
When I run this snippet of code it has
I am having troubles with the syntax for the
win32::daemon. I have a script that works fine
stand-alone, but it doesn't work as a service. I was
able to create the service, but when the service is
started, the service doesn't seem to run the script.
I also can't seem to stop the service once it
Hello everyone,
I have the following block of code inside a
while(1) statement...so that if I send a stop service
to the the service control manger that it will stop
the service. However when I try this...it will not
stop.
use win32::Daemon;
Win32::Daemon::StartService();
while( SERVICE_ST
Hello everyone,
I have a very general question that I can't seem to
find an answer to. I have a perl script that monitors
network servers using WMI. I have the actual checks
in a flat config files and when I startup the perl
script it reads in each line of the config file and
and puts each ch