ANTIDEMON
Сообщений: 94
Оценки: 0
Присоединился: 2006-11-25 21:31:49.996666
|
Всем привет.
Помогите скрипт поправить
#!/usr/bin/perl
open (HttpdFile, "httpd.conf") || die "$!";
@HttpFileContent=<HttpdFile>;
close(HttpdFile);
my $match = " DocumentRoot";
@list =grep(/^$match/,@HttpFileContent);
my $match = "<Directory";
@DirList =grep(/$match/,@HttpFileContent);
for ($index=0;$index<@list;$index++)
{
$list[$index]=substr($list[$index],14);
my $match = $list[$index];
[b][color=#990000]@tems = grep(/$match/,@DirList);
$R=@tems;
if ($R != 0) {
$FinishList[$index]=$list[$index];[/color][/b]
}
}
open (TempFile,">temp");
printf TempFile $_ foreach (@FinishList);
close (TempFile);
Вобщем что и зачем и куда.
Есть конфиг апапча. В нём есть строки описания виртуальных хостов, в них указывается пути место расположения самих файлов хостовых DocumentRoot.
А ошибка вот в чём, надо под эти пути прописать <Directory и права доступа на эти пути(читай католог)
Некотырые уже описаные а некоторые нет
И вот надо их добавить для недостающих
Скрипт делает вот что
открывает файл httpd.conf
находит все строчки начинающиеся с DocumentRoot и записывает в масив @list
Потом сканит строки с текстом <Directory и запихивает их в масив @DirList
ну а после цикличиски проверяет есть ли строчка с первого масива во втором
если нет то записывает в файл эту строчку
дык вот проблема в том, что не записывает
что делать?
|
Ошибка в скрипте Perl'а - 
