google GAE ゾーンリスト＠DDoS対策

#!/usr/bin/perl


for my $host (`dig -t txt _cloud-netblocks.googleusercontent.com` =~ m@include:([^ ]+)@gim){
	for my $zone (`dig -t TXT $host @ns1.google.com` =~ m@ip4:([^/]+/\d+)@gim){
		print "$zone\n";
	}
}

http://stackoverflow.com/questions/11149470/google-app-engine-list-of-ip-addresses