Script-Ausgabe ?

SimplyFred

Hallo,
ich habe ein Script, welches mir die MX-Records von einer datei anzeigt.

Das Script mx-liste.pl sieht so aus:

Perl

#!/usr/bin/perl -w


use strict;
use Net::DNS;


my $domain_file = $ARGV[0];
die "usage: $0 domainfile" unless( $domain_file and -e $domain_file );
my $resolver = new Net::DNS::Resolver;


open my $fh, '<', $domain_file or die $!;


while( my $domain = <$fh> ){
    chomp $domain;
    # MX-Record abfragen
    my @mxrecs = mx($resolver, $domain);
    if (@mxrecs){
        # Gefunden!
        foreach my $rec (@mxrecs){
            print $rec->preference, " ",
                  $rec->exchange, "\n";
        }
    }
    else{
        # Leere Liste, Fehler!
        print "Kein MX-Record f|r $domain: ",
                $resolver->errorstring, "\n";
    }
}

Alles anzeigen

Der Aufruf ist ./mx-liste.pl liste.txt

Datei liste.txt hat folgenden Inhalt

Code

google.de
siemens.de
yahoo.de

Ich moechte gerne die Ausgabe in eine Datei schreiben lassen

./mx-liste.pl liste.txt >ergbnis.txt

in der man sehen kann, wo die Domain mit passender Ausgabe drinne steht, getrennt mit Semicolon, passend als Input fuer Excel.

Wie macht man denn sowas ?

Tags