Perl-программирование под Windows. Ежемесячное резервное копирование данных.

Сегодня писал скрипт, который делает резервное копирование всех файлов, изменявшихся в течение текущего месяца.

Идея простая — каждый день в 23-59 запускается скрипт, который просматривает архивируемую директорию, находит в ней файлы, изменённые в этом месяце, загоняет их в список и этот список архивирует с помощью 7zip.

Данный скрипт работает с одной единственной директорией и не поддерживает поддиректорий. Если вам это нужно, смотрите документацию по команде dir и корректируйте скрипт.

$path=»ДИСК:\\ПУТЬ\\К\\ДИРЕКТОРИИ\\»;
$pathbk=»ДИСК:\\ПУТЬ\\К\\ДИРЕКТОРИИ\\С\\БЭКАПОМ\\»;
$prefbk=»ПРЕФИКС_ИМЕНИ_ФАЙЛА_БЭКАПА»;
$t=time;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($t);
$year+=1900;
$mon++;
if ($mon<10){$mon=»0″.»$mon»;}
$find=»$mon.$year»;
`del /q $pathbk$prefbk$find.7z`;
`date.exe /T>$pathbk$prefbk$find.rep`;
`time.exe /T>>$pathbk$prefbk$find.rep`;
foreach $line (`dir /c $path`){
chomp $line;
($date,$time,$size,$filename)=split(/ +/,$line,4);
($d,$mn)=split(/\./,$date,2);
next if ($find ne $mn);
next if («<DIR>»=~$filename);
`echo $path$filename>>\%TEMP\%\\bklist.lst`;
}
`c:\\progra~1\\7-zip\\7z.exe a -r -y -w$pathbk $pathbk$prefbk$find.7z -i\@\%TEMP\%\\bklist.lst>>$pathbk$prefbk$find.rep`;
`del /q \%TEMP\%\\bklist.lst`;
`date.exe /T>>$pathbk$prefbk$find.rep`;
`time.exe /T>>$pathbk$prefbk$find.rep`;
exit 0;

Для работы скрипта требуется установленный архиватор 7zip.