Re^2: using perl script to schedule windows task

You are right. I just realized that, My inputfile and outputfile path both like /xx/xx.log, but Windows does not recognize this path. How I could resolve it? my code is

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

my @state_name =  qw( UNKNOWN Stopped START_PENDING STOP_PENDING
                      Started CONTINUE_PENDING PAUSE_PENDING
                      PAUSED  ERROR  );
my $date = strftime("%Y-%m-%d", localtime);
my ($shortname, %status, $state_no);

my $filename = '/Users/Documents/Traning/Perl/XiServiceList.txt';
open FILE, '<', $filename;# autodie
my $hostname = <FILE>;
chomp $hostname;
open MYFILE, ">>", "/Users/Documents/Traning/dailycheck\_$date\.log";
print MYFILE "Checking Services available for '$hostname'\n";
my %available=();
GetServices($hostname,\%available) or die "$!";

# add short names
$available{$_} = $_ for values %available;

print MYFILE "Checking services in list\n";
[download]

I tried to modify the path like c\:/Users/Documents/Traning/dailycheck\_$date\.log, it does not work on command, I have not tested in windows scheduler. Thanks!

Comment on Re^2: using perl script to schedule windows task Download Code

Replies are listed 'Best First'.
Re^3: using perl script to schedule windows task by poj (Abbot) on Aug 04, 2017 at 17:44 UTC
`my $path = 'C:/Users/Documents/Traning'; my $filename = $path.'/Perl/XiServiceList.txt'; my $logfile = $path."/dailycheck_$date.log"; . . open MYFILE, ">>", $logfile;` [download] Note : Is it not `c:/users/username/documents/Traning`? poj	[reply] [d/l] [select]