IPv6-Erhebung am Hochtechnologiestandort Deutschland.

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;
}

New list of DAX30 Companies to copy and paste

my $list = <<End;
www.adidas.com
www.allianz.de
www.basf.com
www.bayer.de
www.beiersdorf.de
www.bmw.de
www.conti-online.com
www.covestro.de
www.daimler.com
www.db.com
www.deutsche-boerse.com
www.lufthansa.com
www.dpdhl.com
www.telekom.de
www.eon.de
www.fresenius.de
www.fmc-ag.de
www.heidelbergcement.com
www.henkel.de
www.infineon.com
www.the-linde-group.com
www.merck.de
www.munichre.com
www.rwe.de
www.sap.com
www.siemens.com
www.thyssenkrupp.com
www.volkswagenag.com
www.vonovia.de
www.wirecard.de
End

DOW30:

www.3m.com
www.americanexpress.com
www.apple.com
www.boeing.com
www.caterpillar.com
www.chevron.com
www.cisco.com
www.coca-colacompany.com
www.dow-dupont.com
www.exxonmobil.com
www.goldmansachs.com
www.homedepot.com
www.ibm.com
www.intel.com
www.jnj.com
www.jpmorganchase.com
www.mcdonalds.com
www.merck.com
www.microsoft.com
www.nike.com
www.pfizer.com
www.pg.com
www.travelers.com
www.utc.com
www.unitedhealthgroup.com
www.verizon.com
usa.visa.com
www.walgreensbootsalliance.com
corporate.walmart.com
www.thewaltdisneycompany.com

2a02:26f0::/32 == Akamai