Perl Script Runs Differently through Task Scheduler

Question

I am running a perl script that is grabbing a file from an ftp server and then performing a system command.

When I run the task from the scheduler, it does not grab the file but it does perform the system command. Both are wrapped in an if statement so I know that the if statement is working properly.

I have checked the permissions already and the task is using the highest permissions. I also am running the task as an administrator. Now, the catch is that when I manually run the program, everything works properly. Why does it run properly when I manually run it but not when I run it through the scheduler?

Here is some of the code:

if ($size_ftp == $size_local) {
            print "Files are the same...\n";
            $ftp->quit;
            print "FTP has quit!\n";
        } else {
            print "Files are not the same...begin download!\n";
            $ftp->get($file_ftp) or die "get failed ", $ftp->message;
            print "Download complete...\n";
            $ftp->quit;
            print "FTP has quit!\n";
            my $Archive_file = Archive::Extract -> new( archive => $file_dir );
            print "File extraction identified...\n";
            $Archive_file -> extract( to => $extract_here );
            print "File extracted...\n";
            system('call "C:\QMSEDX.exe"');
            print "System EDX call completed!\n";
    }

I don't know the answer, but the Unix guys who use cron complain about this [all](http://stackoverflow.com/questions/2046570) [the](http://stackoverflow.com/questions/13204/) [time](http://stackoverflow.com/questions/780072). — mob, May 28 '13 at 17:21

score 2 · Answer 1 · answered May 29 '13 at 00:28

2

Why do you think that the file is not downloaded? Do you have "get failed" error? I'm sure it's downloaded but not to the place you want.

When your script is executed from the Scheduler the current working directory usually is not the same you run it from command line. You can set your script working directory in the Task's properties or you can tell your script where to save downloaded file:

use FindBin qw($Bin);

....

$ftp->get( $file_ftp, "$Bin/$file_ftp" ) or die "get failed ", $ftp->message;

answered May 29 '13 at 00:28

gangabass

10,607
2
23
35

1

Yes, thank you. I used the following code to change the directory and now it works fine: use File::chdir; my $dir = getcwd; print "The original cwd is $dir\n"; $CWD = 'path/here/'; $dir = getcwd; – user2429305 May 29 '13 at 14:27

Perl Script Runs Differently through Task Scheduler

1 Answers1