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

Das Script mx-liste.pl sieht so aus:
Code:
#!/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&#40; my $domain = <$fh> &#41;&#123;
    chomp $domain;
    # MX-Record abfragen
    my @mxrecs = mx&#40;$resolver, $domain&#41;;
    if &#40;@mxrecs&#41;&#123;
        # Gefunden!
        foreach my $rec &#40;@mxrecs&#41;&#123;
            print $rec->preference, " ",
                  $rec->exchange, "\n";
        &#125;
    &#125;
    else&#123;
        # Leere Liste, Fehler!
        print "Kein MX-Record f|r $domain&#58; ",
                $resolver->errorstring, "\n";
    &#125;
&#125;
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 ?
Achtung: Dies ist ein alter Thread im HTML und Webmaster Forum
Diese Diskussion ist älter als 90 Tage. Die darin enthaltenen Informationen sind möglicherweise nicht mehr aktuell. Erstelle bitte zu deiner Frage ein neues Thema im Forum !!!!!