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( 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";
}
}
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 ?
Datum: 05.02.2008-20:11
Script-Ausgabe ?
