форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Perl"
Сообщение от freevit (ok) on 17-Апр-04, 12:47  (MSK)
Помогите создать програмку в perl есть dig @central.nep.ru -первичный dig @register.ns.ru -вторичный как вывести только оба serial number из SOA в отдельный фаил чтобы сравнить их
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Perl"
Сообщение от Arin (ok) on 18-Апр-04, 18:31  (MSK)
>Помогите создать програмку в perl >есть dig @central.nep.ru -первичный >dig @register.ns.ru -вторичный >как вывести только оба serial number из SOA в отдельный фаил чтобы >сравнить их это только заготовка, попробуй #!/usr/bin/perl $file="/home/user/file.txt"; @res1 = grep { /serial=/} `dig \@central.nep.ru`; @res2 = grep { /serial=/} `dig \@register.ns.ru`; open(OUT,">$file") || die("Can't open for write file $file."); print OUT "central.nep.ru @res1\n"; print OUT "register.ns.ru @res2\n"; close(OUT); exit(0);
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.