Я пытаюсь выполнить Perl-скрипт для удаления file1.txt в каталоге.Когда я выполняю сценарий perl с помощью командной строки, я сталкиваюсь с ошибкой: Use of uninitialized value in chdir at C:/Debug/test.pl line 7
.Пример:
C:\Debug>test.pl C:\Debug
Однако, если я вызову perl
перед test.pl
, сценарий perl будет успешно выполнен, и file1.txt будет удален.Пример:
C:\Debug>perl test.pl C:\Debug
Пожалуйста, найдите test.pl
код следующим образом:
use strict;
use warnings;
use File::Copy;
my ($working_dir) = @ARGV;
chdir $working_dir or die "Can't change directory$!";
unlink "file1.txt";
У меня mks_toolkit v8.7.5 с установленным perl.exe.Расширение .pl
связано с "C:\Program Files (x86)\MKS Toolkit\mksnt\perl.exe" "%1" %*
.У меня нет проблем выполнить hello.pl (Hello World) без вызова Perl перед ним.Пример:
C:\Debug>hello.pl