Скрипт прислали из вышестоящей организации, у самого разобраться не получается.
Скрипт выдает следующие ошибки:
Can't spawn «cmd.exe»: No such file or directory at C:/Perl/site/lib/SDB/ line 238.
"/home/script/proc/to_db.pl -no_del -list /data/scr/upload/local/tmp_fms_listfile.tmp" failed
SDB exit message: "/home/script/proc/to_db.pl -no_del -list /data/scr/upload/local/tmp_fms_listfile.tmp" failed
[EXIT 1]
из 238-й строчки common.pm («my $rc = 0xffff & system $command;») стало понятно что он не может выполнить системную команду.
Там будут перечислены через точку с запятой папки, в которых будет искаться приложение, если оно запускается без указания папки его нахождения и его нет в текущей папке.
cmd.exe находится в [disk]:\Windows\System32\cmd.exe вроде, так что эта папка должна быть в %PATH%, ну а если нет, то добавьте :)
Гляньте тогда в gui как определена PATH, скорее всего там оно прописано как %SystemRoot%\system32, а перл вряд ли зарезолвит такое. Ну и поменяйте на прямой путь, т.е. c:\Windows\System32 :)
GUI — это вроде как свойства компьютера, там где-то есть кнопка «Переменные окружения»