sslug-teknik team mailing list archive

[Christoffer Hall-Frederiksen <hall@xxxxxxx>]

Jeg har vedhæftet en lille script er hedder domain.pl.

Prøv at køre en:

perl domain.pl named_conf_nr_1  named_conf_nr_2

Det er ikke et "bulletproof" script, men prøv det ;)

NB: Brug mindst perl 5.6

On Thu, Aug 09, 2001 at 02:00:00PM +0200, Per Jørgensen wrote:
|>  
|>  jeg har kørt en sort -u på begge filer jeg har liggende og derefter
|>  kørt en diff -u file1.txt file2.txt, men den gir da mig ikke så meget
|>  infomation om hvilkne domains som går igen i begge de filer, og hvilket
|>  domains som står i file1 og ikke i file2 og omvendt

-- 
	Christoffer

#!/usr/local/bin/perl

use strict;
use warnings;

my ($file1, $file2) = @ARGV;


my $fd1;
open($fd1, $file1) or die ("Cannot open file: $file1");

my $fd2;
open($fd2, $file2) or die ("Cannot open file: $file2");

my %dom1;
my %dom2;

while (<$fd1>) {
    /^\s*zone\s+\"([^"]+)\"/ && do {
        $dom1{$1} = 1;
    };
}

while (<$fd2>) {
    /^\s*zone\s+\"([^"]+)\"/ && do {
        $dom2{$1} = 1;
    };
}


foreach my $k (sort keys %dom1) {
    print "Domain $k in $file1 but not in $file2\n" 
        unless (defined($dom2{$k}));
}

foreach my $k (sort keys %dom2) {
    print "Domain $k in $file2 but not in $file1\n" 
        unless (defined($dom1{$k}));
}