Skip to content

Instantly share code, notes, and snippets.

@breezhang

breezhang/testwhoami.pl

Last active August 29, 2015 14:00
Show Gist options
  • Save breezhang/11162914 to your computer and use it in GitHub Desktop.
Save breezhang/11162914 to your computer and use it in GitHub Desktop.
Download ZIP
whois API
Raw
testwhoami.pl
use feature ":5.14";
use JSON;
use Data::Dumper::Concise;
#my $a = `curl http://api.whoapi.com/?domain=github.com&r=whois&apikey=**b0f747f971c11f22ce1d76cf6d0025`;
#my $b = `curl http://api.whoapi.com/?domain=github.com&r=geo&apikey=**b0f747f971c11f22ce1d76cf6d0025`;
#my $b = `curl http://api.whoapi.com/?domain=google.com&apikey=**b0f747f971c11f22ce1d76cf6d0025&r=cert`;
#my $b = `curl http://api.whoapi.com/?domain=whoapi.com&apikey=**b0f747f971c11f22ce1d76cf6d0025&r=blacklist`;
#my $b = `curl http://api.whoapi.com/?domain=whoapi.com&apikey=**b0f747f971c11f22ce1d76cf6d0025&r=blacklist`;
#my $b = `curl http://api.whoapi.com/?domain=whoapi.com&apikey=**b0f747f971c11f22ce1d76cf6d0025&r=social`;
my $b = `curl http://api.whoapi.com/?domain=163.com&apikey=**b0f747f971c11f22ce1d76cf6d0025&r=ipwhois`;
$perl_scalar = decode_json $b;
say Dumper $perl_scalar;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment