Помогите создать програмку в perl
есть dig @central.nep.ru -первичный
dig @register.ns.ru -вторичный
как вывести только оба serial number из SOA в отдельный фаил чтобы сравнить их

• Perl,Arin, 18:31 , 18-Апр-04

>Помогите создать програмку в 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);