mschmitt/check.pl

## check.pl
#!/usr/bin/perl -w
use strict;
use diagnostics;
use Net::DNS;

print "IPv6-Erhebung am Hochtechnologiestandort Deutschland.\n\n";
print "Es wurden die Homepages der DAX-Unternehmen auf IPv6-Support untersucht.\n\n";
printf "%-35s  %s\n", 'Hostname', 'IPv6-Adresse';
printf "%-35s  %s\n", '--------', '------------';

my $list = <<End;
www.adidas.com
www.allianz.de
www.basf.com
www.bayer.de
www.beiersdorf.de
www.bmw.de
www.commerzbank.de
www.daimler.com
www.db.com
deutsche-boerse.com
www.telekom.de
www.eon.de
www.fmc-ag.de
www.fresenius.de
www.heidelbergcement.com
www.henkel.de
www.infineon.com
www.k-plus-s.com
www.the-linde-group.com
www.lufthansa.com
www.man.de
www.merck.de
www.metro24.de
www.munichre.com
www.rwe.de
www.sap.com
www.siemens.com
www.thyssenkrupp.com
www.volkswagenag.com
www.google.de
www.facebook.com
www.sixxs.net
www.he.net
www.microsoft.com
www.apple.com
End

my @hosts = split /\n/, $list;

my $res = Net::DNS::Resolver->new();

foreach my $host (@hosts){
	my $ip6addr = '-';
	my $query = $res->search($host, 'AAAA');
	if ($query){
		foreach my $rr ($query->answer){
			next unless $rr->type eq 'AAAA';
			$ip6addr = $rr->address;
		}
	}
	printf "%-35s: %s\n", $host, $ip6addr;
}
	#!/usr/bin/perl -w
	use strict;
	use diagnostics;
	use Net::DNS;

	print "IPv6-Erhebung am Hochtechnologiestandort Deutschland.\n\n";
	print "Es wurden die Homepages der DAX-Unternehmen auf IPv6-Support untersucht.\n\n";
	printf "%-35s %s\n", 'Hostname', 'IPv6-Adresse';
	printf "%-35s %s\n", '--------', '------------';

	my $list = <<End;
	www.adidas.com
	www.allianz.de
	www.basf.com
	www.bayer.de
	www.beiersdorf.de
	www.bmw.de
	www.commerzbank.de
	www.daimler.com
	www.db.com
	deutsche-boerse.com
	www.telekom.de
	www.eon.de
	www.fmc-ag.de
	www.fresenius.de
	www.heidelbergcement.com
	www.henkel.de
	www.infineon.com
	www.k-plus-s.com
	www.the-linde-group.com
	www.lufthansa.com
	www.man.de
	www.merck.de
	www.metro24.de
	www.munichre.com
	www.rwe.de
	www.sap.com
	www.siemens.com
	www.thyssenkrupp.com
	www.volkswagenag.com
	www.google.de
	www.facebook.com
	www.sixxs.net
	www.he.net
	www.microsoft.com
	www.apple.com
	End

	my @hosts = split /\n/, $list;

	my $res = Net::DNS::Resolver->new();

	foreach my $host (@hosts){
	my $ip6addr = '-';
	my $query = $res->search($host, 'AAAA');
	if ($query){
	foreach my $rr ($query->answer){
	next unless $rr->type eq 'AAAA';
	$ip6addr = $rr->address;
	}
	}
	printf "%-35s: %s\n", $host, $ip6addr;
	}