perl利用DNSPOD API获取域名的各个地区的解析
2014-12-04 16:41
351 查看
#!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use JSON; use Encode; my $mail='user'; my $pass='pass'; my $domain_info_url='https://dnsapi.cn/Domain.Info'; my $record_list_url='https://dnsapi.cn/Record.List'; sub get_domain_id { ###获取数据 my ($domain)=@_; my $UA = LWP::UserAgent->new; $UA->default_header( 'User-Agent' => 'TEST DNS Client/1.0.0 (user@qq.com)' ); my $response = $UA->post( $domain_info_url, [ 'login_email' => "$mail",'login_password' => "$pass",'format' => 'json',"domain" => "$domain"] ); my @string = $response->content; ###利用JSON 处理数据 my $json_obj; my $json = new JSON; foreach (@string){ $json_obj = $json->decode("$_"); } return $json_obj->{'domain'}->{'id'}; } sub get_record_list { my ($domain_id,$sub_domain)=@_; my $UA = LWP::UserAgent->new; $UA->default_header( 'User-Agent' => 'TEST DNS Client/1.0.0 (user@qq.com)' ); my $response = $UA->post( $record_list_url, [ 'login_email' => "$mail",'login_password' => "$pass",'format' => 'json',"domain_id" => "$domain_id","sub_domain" => "$sub_domain"] ); return $response->content; } my $json_obj; my $json = JSON->new->utf8; foreach (get_record_list(get_domain_id("main_domain.com"),"test")){ $json_obj = $json->decode("$_"); } ###main_domain.com为主域名,test二级域名 my ($cast,@t); for my $item(@{$json_obj->{'records'}}){ $cast = $item->{'ttl'} . "_" . $item->{'line'} . "_" . $item->{'value'}; push (@t,$cast); } #####此处可以获取的值: # "id": "744", # "name": "hot", # "line": "默认", # "type": "A", # "ttl": "60", # "value": "1.1.1.1", # "mx": "0", # "enabled": "1", # "status": "enabled", # "monitor_status": "", # "remark": "", # "updated_on": "2014-07-30 12:38:44", # "use_aqb": "no" foreach (@t){ my $re = encode("gb2312",$_); print "$re\n"; }以上是自己写的一个perl , 刚入门 写的有点乱。
相关文章推荐
- 利用百度API获取当前用户的省市地区,适合定位精度要求不高的项目
- iOS crash log 解析 symbol address = stack address - slide 运行时获取slide的api 利用dwarfdump从dsym文件中得到symbol
- 利用百度地图Geocoding API获取特定地区或地址的经纬度信息
- iOS crash log 解析 symbol address = stack address - slide 运行时获取slide的api 利用dwarfdump从dsym文件中得到symbol
- iOS crash log 解析 symbol address = stack address - slide 运行时获取slide的api 利用dwarfdump从dsym文件中得到symbol
- 利用google map获取特定地区或地址的经纬度信息
- 利用google的API获取世界城市经纬度(python实现)
- Flex中利用ExternalInterface API从JavaScript中获取内容并在Flex应用中使用的例子
- 『原创』WM利用Google Weather API获取天气预报
- 利用Perl解析XML文件 [转]
- 最稳定最安全的免费域名解析服务DNSPod
- 利用perl提取web配置文件中的域名对应的路径
- 利用 Windows Crypt API 获取 MD5/SHA1 值
- android利用百度api解析经纬度
- Android 获取Google Weather API 并通过Xml和JSON解析数据
- 利用JavaMail API 解析MIME
- 利用Google Map API获取给定地址的经纬度
- 利用Google Map解析中国大陆4095个省市县的默认地理位置,获取地理坐标
- 国内免费域名解析DNSPOD被攻击
- 利用Liferay Portal 中的API获取User 的途径之一