Не уверен что в нужном разделе, но все же...
На просторах инета нашел perl скрипт для автоматической регистрации зон DNS с PRIMARY на  SLAVE сервере.

Файл из 2-х частей, сам скрипт соответственно
http://www.tourservice.kz/docs/ru/blog/2010/2/19/zoneadd
и
http://www.tourservice.kz/docs/ru/blog/2010/2/19/zoneadd.conf
conf файл настройки.

Попробовал с дебагом, получилось

main::(zoneadd:9):      my (оg);
  DB<1> n
main::(zoneadd:10):     open CFG,'/etc/zoneadd.conf' or die '/etc/zoneadd.conf '.$!;
  DB<1>
main::(zoneadd:11):     my $cfg=join "\n", <CFG>;
  DB<1>
main::(zoneadd:12):     close CFG;
  DB<1>
main::(zoneadd:13):     eval "$cfg";
  DB<1>
main::((eval 8)[zoneadd:13]:1): my оg=(
  DB<1>
main::(zoneadd:14):     die $@ if $@;
  DB<1>
main::(zoneadd:18):     if ( $cfg{'daemon'} ) {
  DB<1>
main::(zoneadd:30):     open ZONES, $cfg{'named.conf'} or die $cfg{'named.conf'}." ".$!;
  DB<1>
Use of uninitialized value in open at zoneadd line 30.
at zoneadd line 30
Use of uninitialized value $cfg{"named.conf"} in concatenation (.) or string at zoneadd line 30.
at zoneadd line 30
Нет такого файла или каталога at zoneadd line 30.
at zoneadd line 30
Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.

Т.е. как я понял он не может найти или прочитать named.conf
Решил тогда объеденить файл conf и сам скрипт, и запустил опять в дебаге zoneadd+zoneadd.conf

main::(zoneadd:16):     my оg=(
  DB<1>
main::(zoneadd:48):     if ( $cfg{'daemon'} ) {
  DB<1>
main::(zoneadd:60):     open ZONES, $cfg{'named.conf'} or die $cfg{'named.conf'}." ".$!;
  DB<1>
main::(zoneadd:61):     while (<ZONES>) {
  DB<1>
main::(zoneadd:62):             if ( /^zone\s+"([\w\.]+)"\s+{/ ) {
  DB<1>
main::(zoneadd:62):             if ( /^zone\s+"([\w\.]+)"\s+{/ ) {
  DB<1>
main::(zoneadd:62):             if ( /^zone\s+"([\w\.]+)"\s+{/ ) {
  DB<1>
main::(zoneadd:62):             if ( /^zone\s+"([\w\.]+)"\s+{/ ) {

В perl не очень то разбираюсь. А данная фича очень нужна на сервере.
Никто случаем не делал себе такую штуку?

• Авторегистрация зон DNS на SLAVE сервере средствами PERL,Pahanivo, 18:05 , 12-Фев-14
  • Авторегистрация зон DNS на SLAVE сервере средствами PERL,AleR, 20:56 , 12-Фев-14
    • Авторегистрация зон DNS на SLAVE сервере средствами PERL,Pahanivo, 21:30 , 12-Фев-14
• Авторегистрация зон DNS на SLAVE сервере средствами PERL,михалыч, 08:52 , 22-Фев-14
  • Авторегистрация зон DNS на SLAVE сервере средствами PERL,Pahanivo, 22:40 , 23-Фев-14
    • Авторегистрация зон DNS на SLAVE сервере средствами PERL,михалыч, 06:00 , 24-Фев-14
      • Авторегистрация зон DNS на SLAVE сервере средствами PERL,Pahanivo, 08:11 , 24-Фев-14
        • Авторегистрация зон DNS на SLAVE сервере средствами PERL,михалыч, 09:06 , 24-Фев-14
          • Авторегистрация зон DNS на SLAVE сервере средствами PERL,Pahanivo, 15:43 , 24-Фев-14

> На просторах инета нашел perl скрипт для автоматической регистрации зон DNS с PRIMARY на  SLAVE сервере.

регистрации?

> В perl не очень то разбираюсь.

нуу не разбираешься в перле, возми grep, awk, sed  и тд, THIS IS SPAAAA^W UNIX WAY!
выдернуть имена примари, по шаблону сформировать кусок конфига, отправить по фтп на другой сервер - както так если в общем

> А данная фича очень нужна на сервере.

ээээээ я думаю должено буть хотябы два сервера ...

> Никто случаем не делал себе такую штуку?

у тебя тысячи зон и они меняются ежедневно?

ЗЫ А смешной такой пост: я скачал хрень, зачем не знаю, как работает не понимаю, как-то  запустил, почемуто не запустилось не запустилось, куда меня скрипт послал перевести не могу - памахите христа ради ... ))

> ЗЫ А смешной такой пост: я скачал хрень, зачем не знаю, как
> работает не понимаю, как-то  запустил, почемуто не запустилось не запустилось,
> куда меня скрипт послал перевести не могу - памахите христа ради
> ... ))

Не знаешь что сказать - промолчи, будешь выглядеть умнее (народная мудрость)

> Не знаешь что сказать - промолчи, будешь выглядеть умнее (народная мудрость)

какую именно фразу не смог осилить?

> Никто случаем не делал себе такую штуку?

Спасибо. Потестил ))

скрипт рабочий, просто там как в известном анекдоте - доработать напильником

> Спасибо. Потестил ))
> скрипт рабочий, просто там как в известном анекдоте - доработать напильником

ты его две недели пилил и тестил? ))

>> Спасибо. Потестил ))
>> скрипт рабочий, просто там как в известном анекдоте - доработать напильником
> ты его две недели пилил и тестил? ))

да! ну не все две недели, конечно, но - то времени не было,
то косяки в коде вылазить начали, причём, вроде и мелкие и разные, но блин задёргали,
то у меня в конфиге named.conf с notify, короче, вот так и растянулась "доработка напильником"

>>> Спасибо. Потестил ))
>>> скрипт рабочий, просто там как в известном анекдоте - доработать напильником
>> ты его две недели пилил и тестил? ))
> да! ну не все две недели, конечно, но - то времени не
> было,
> то косяки в коде вылазить начали, причём, вроде и мелкие и разные,
> но блин задёргали,
> то у меня в конфиге named.conf с notify, короче, вот так и
> растянулась "доработка напильником"

блин чуваг, проще заново накидать скритягу чем в чужой разбираться ))

> блин чуваг, проще заново накидать скритягу чем в чужой разбираться ))

конечно, согласен, но иногда хочется посмотреть как реализовано другими,
попытаться разобраться в чужом коде - это тоже стимулирует серые клеточки головного мозга,
чему-то новому учишься и т.д, в общем, i like it

>  i like it

just do it