Архив форумов ЦИТФорума

[rubin]

Добрый День.
Есть у меня одна проблема, я написал парсер на Perl (беру файл, запихиваю его в массив, далее построчно регулярными выражениями распихиваю строки по хешам как мне надо, соблюдая структуру начального файла). Теперь когда у меня файл разложен в хеше его надо выгрузить в другой файл в том же виде и порядке как и в исходном файле, а вот как это сделать - понять не могу. Может кто подскажет?

Код:
#!/usr/bin/perl -wopen
(FILEHANDLE, "<services3.cfg"); # открываем файл для чтения
@text = <FILEHANDLE>; # передаем в массив содержимое
FILEHANDLEclose (FILEHANDLE);
%hash = (); # создаю пустой хеш
$var = 0;
$temp = 0;
$val = "val";
$rem = "rem";
$keystone = '';
$open = 0;
for ($loop_ind=0; $loop_ind<=$#text; $loop_ind++) # открываю цикл по строкам FILEHANDLE
{ #проверка пустой стоки текста
if ($text[$loop_ind] =~ m/(^$)|(\x09)|([\ ]+\n)/)
{ if ($open == 0)
{$var++;
$hash{$var} = $text[$loop_ind];
}
else
{ if ($num == 0)
{$keystone = "Clear";
if ((ref $hash{$var}{$temp}{$num}) eq 'HASH')
{$hash{$var}{$temp}{$num}{$keystone} -> {$rem} = $text[$loop_ind];}
else
{$hash{$var}{$temp}{$num} = {$keystone => {$rem => $text[$loop_ind]}};}
}
else
{$keystone = "Clear";
$num++;
$hash{$var}{$temp}{$num}{$keystone} -> {$rem} = $text[$loop_ind]; }
}
}
else
{# проверка строки на наличие символов "закрытия секции"
if ($text[$loop_ind] =~ m/([\ ]+)*(\})/)
{if ($text[$loop_ind] =~ m/(\#)/)
{}
else
{ if ($text[$loop_ind] =~ m/(\;)/)
{# проверка строки на наличие символов "закрытия секции" с коментариями
if ($text[$loop_ind] =~ m/([\ ]+)*(\})*([\ \x09]+)*(\;)*([\ \x09]+)*([\W\w\d\'\"\S\s\n]+)/)
{$keystone = "Clear";
$num++;
$hash{$var}{$temp}{$num}{$keystone} -> {$val} = $1.$2.$3.$4.$5.$6;
$open = 0;
}
}
else
{$keystone = "Clear";
$num++;
$hash{$var}{$temp}{$num}{$keystone} -> {$val} = $text[$loop_ind];
$open = 0;
}
}
}
else
{# проверка строки на наличие "шарпа" - вся строка записывается как ремарка
if ($text[$loop_ind] =~ m/(\#)/)
{if ($open == 0)
{$var++;
$hash{$var} = $text[$loop_ind];
}
else
{if ($num == 0)
{$keystone = "Sharp";
if ((ref $hash{$var}{$temp}{$num}) eq 'HASH')
{$hash{$var}{$temp}{$num}{$keystone} -> {$rem} = $text[$loop_ind];}
else
{$hash{$var}{$temp}{$num} = {$keystone => {$rem => $text[$loop_ind]}};}
}
else
{$keystone = "Sharp";
$num++;
$hash{$var}{$temp}{$num}{$keystone} -> {$rem} = $text[$loop_ind];
}
}
}
else
{# проверка строки на предмет начала секции
if ($text[$loop_ind] =~ m/(define)*(\ )*([A-Za-z]+) *(\{)/)
{if ($text[$loop_ind] =~ m/(\;)/)
{# проверка строки на предмет начала секции с коментариями
if ($text[$loop_ind] =~ m/(define)*(\ )*([A-Za-z]+) *(\{)*([\ \x09]+)*(\;)*([\ \x09]+)*([\W\w\d\'\"\S\s\n]+)/)
{$var++;
$num = 0;
$open = 1;
$temp = $1.$2.$3.$4.$5.$6.$7.$8;
$hash{$var}{$temp} = {$num =>''};
}
}
else
{$var++;
$num = 0;
$open = 1;
$temp = $1.$2.$3.$4;
$hash{$var}{$temp} = {$num =>''};
}
}
else
{# проверка строки пренадлежащей к секции на наличие коментариев
if ($text[$loop_ind] =~ m/(\;)/)
{# парсинг строки с коментариями
if ($text[$loop_ind] =~ m/([\ \x09]+)*([A-Za-z\_\-]+)*([\ \x09]+)*([A-Za-z\d\_\-\!\%\:\"\,\.\n]+)*([\ \x09]+)*(\;)*([\ \x09]+)*([\W\w\d\'\"\S\s\n]+)/)
{if ((ref $hash{$var}{$temp}{$num}) eq 'HASH')
{$keystone = $2;
$num++;
$hash{$var}{$temp}{$num}{$keystone} -> {$val} = $4;
$hash{$var}{$temp}{$num}{$keystone} -> {$rem} = $8;
}
else
{$keystone = $2;
if ($num == 0)
{$hash{$var}{$temp}{$num} = {$keystone => {$val => $4}};
$hash{$var}{$temp}{$num}{$keystone} -> {$rem} = $8;
}
else
{$num++;
$hash{$var}{$temp}{$num} = {$keystone => {$val => $4}};
$hash{$var}{$temp}{$num}{$keystone} -> {$rem} = $8;
}
}
}
}
else
{# парсинг строки без коментариев
if ($text[$loop_ind] =~ m/([\ \x09]+)*([A-Za-z\_\-]+)*([\ \x09]+)*([A-Za-z\d\_\-\!\%\:\"\,\.\n]+)/)
{if ((ref $hash{$var}{$temp}{$num}) eq 'HASH')
{$keystone = $2;
$num ++;
$hash{$var}{$temp}{$num}{$keystone} -> {$val} = $4;
$hash{$var}{$temp}{$num}{$keystone} -> {$rem} = "\n";
}
else
{$keystone = $2;
if ($num == 0)
{$hash{$var}{$temp}{$num} = {$keystone => {$val => $4}};
$hash{$var}{$temp}{$num}{$keystone} -> {$rem} = "\n";
}
else
{$num ++;
$hash{$var}{$temp}{$num} = {$keystone => {$val => $4}};
$hash{$var}{$temp}{$num}{$keystone} -> {$rem} = "\n";
}
}
}
}
}
}
}
}
}
При этом содержимое исходного файла services3.cfg такое:

Код:
# test message
define service{ ; sdfsadf
name generic-service ; The 'name' of this service template, referenced in other service de
active_checks_enabled 1 ; Active service checks are enable
register 0 ; DONT REGISTER THIS DEFINITION - ITS NOT A REAL SERVICE, JUST A TEMPLATE!
} ; temp message
# test message
define service{ use generic-service
host_name router-fcu
}
# Service definition
#define service{
# use generic-service ; Name of service template to use
#
# notification_period 24x7
# }
Секция начинается с "define service{", а заканчивается " }".
Собственно как мне записать распарсенный текст в таком же виде построчно выкинув его в новый файл format.cfg???
Все сто стоит после шарпа "#" - это ремарка или просто коментарий.

[Aragaer]

Рекурсивно....
Обход сколь угодно страшной структуры делается примерно так:

[rubin]

Большое спасибо.
Про рекурсивный метод я подумывал уже (прочитав о нем в книге).
Но так как я язык этот изучаю всего 1,5 недели, то мне трудно еще во все въехать!
В частности не могли бы Вы Aragaer, слегка разжевать написанный код, просто не совсем понимаю что, от куда и куда. Дальше буду переделывать под себя.
Спасибо.

[Aragaer]

На вход мы получаем некий скаляр, который может быть ссылкой на что-либо, а может быть собственно литерадом (значение, которое надо вывести). Если это ссылка - разыменовываем ее и продолжаем мучаться. Ссылка на массив - разбираем каждый элемент массива. На хеш - каждый элемент хеша. Переменная $prefix в моем примере отслеживает глубину вложения.

В том виде, как я написал, скрипт не будет работать с объектами - они попадут на else, а должны попасть куда-то еще. Имеет смысл сделать так:

[rubin]

Да уж, без пол литра не разберешься!
А можно мне в аську писать?

[rubin]

Если будет минутка, не напишите, как мне начать построчно, обязательно по порядку (с 0 до конца) выводить хеш в файл.
Вообще если в дебагере запустить мой код, то структура хеша такая:

[Aragaer]

Дык.. ну вон прямо тот код, который я написал, только там