Perl webcode deploy script

Question

Я создаю скрипт Perl для развертывания веб-кода (Windows 2008 Server). Мне нужно сначала скопировать все старые файлы из папки назначения и создать архив dir для файлов с временной меткой, завершающей имя архивного dir (arc_dir.20131217). Переместите файлы в архив. Затем мне нужно скопировать код из исходного каталога в папку назначения. Однако он не работает вообще, и я абсолютно не знаю, почему.

Две вещи, я очень зелёный с Perl, как будет вскоре видно, и я не хочу, чтобы кто-то делал код для меня. Это отчасти поражает цель обучения. Направление и диалог были бы замечательными. Я мечта ветеранов, желающих учиться, и я хочу писать только чистый код.

use strict; 
use warnings; 
use autodie; 
use File::Copy; #Gives you access to the "move" command 
use File::Path; #Copies data recursively from one dir and creates a new dir 
use POSIX; 



#Set Directories 
use constant { 
    TIMESTAMP  => strftime("%Y%M%d%H%M%S", localtime); 
    Source_Dir  => "C:\Users\Documents\Source_Dir", 
    destination_Dir => "C:\Users\Documents\Destination_Dir", 
    ARCHIVE   => "C:\Users\Documents\arc_dir.TIMESTAMP", 
}; 
#Creates new directory to archive old files 
make_path('C:\Users\Shaun\Documents\arc_dir.TIMESTAMP'); 


#Need to copy destination dir, create archive dir and paste data to it 
#Opens destination_Dir, so I can read from it 
opendir my $dir, destination_Dir; 

# Loop through directory and grab all of the files and store in var 
while (my $file = readdir $dir) { 
    my $destination_Dir = destination_Dir . "/" . "$file"; 
    move $destination_Dir, ARCHIVE; 

#Loop through directory and copy all webcode to destination_Dir 
opendir my $dir, Source_Dir; 

while (my $file = readdir $dir) { 
my $Source_Dir = Source_Dir . "/" . "$file"; 
move $Source_Dir, destination_Dir; 

Answer 1

В скрипте есть синтаксические ошибки. Я бы использовал -c в командной строке для PERL, чтобы проверить синтаксис скрипта (например, perl -c). Убедитесь, что ваши() и {} соответствуют друг другу.

Другой элемент заключается в том, что обратная косая черта (\) должна быть экранирована с помощью обратной косой черты (\), когда в двойных кавычках ("). В противном случае это просто экранирование следующего символа в строке (и, вероятно, вы хотите указать имя пути). Строки в двойных кавычках интерполируются перед обработкой, где одиночные кавычки нет (Хорошее объяснение разницы между котировками и удвоениями sinqle: http://www.perlmonks.org/?node_id=401006). Вы можете изменить котировки sinqle, которые вам нужно удвоить кавычки в вашем вызове makepath. В противном случае TIMESTAMP не будет изменен, и каталог будет иметь имя TIMESTAMP.

Я также предложил бы поместить в какой-либо оператор печати, чтобы указать, что делается, и давать обратную связь о том, что элементы продвигаются. как печать «перемещение $ destination_Dir в ARCHIVE» и «перемещение $ Source_Dir в destination_Dir» означают, что файлы перемещаются.