测评信息 测评信息
  • 首页
  • 主机推荐
  • 产品测评
  • 网络干货
  • 限时优惠
  • 建站指南
  • 注册
    登录
立即登录
  • 主机推荐
  • 产品测评
  • 建站指南
  • 网络干货
  • 限时优惠

分享一个通过api管理cloudflare dns记录的脚本

清秋一月 16, 2021

jeffpan大佬:

  1. use strict;
  2. use warnings;
  3. use Net::Cloudflare::DNS;
  4. # 这是一个perl脚本,安装Net::Cloudflare::DNS模块
  5. # 你必须提供cloudflare的登陆email、api-key以及域名的zone-id,从面板可以获取到
  6. our $obj = Net::Cloudflare::DNS->new(email    => $ENV{‘CLOUDFLARE_EMAIL’},
  7.                                     api_key  => $ENV{‘CLOUDFLARE_API_KEY’},
  8.                                     zone_id  => $ENV{‘CLOUDFLARE_ZONE_ID’},
  9.                                    );
  10. # 如下三个测试函数,你自己修改成自己想要的
  11. # 这个函数用来增加dns记录
  12. add_rr();
  13. # 这个函数用来更新dns记录
  14. update_rr();
  15. #这个函数用来删除dns记录
  16. delete_rr();
  17. sub add_rr {
  18.     for (1..10) {
  19.         my $rand_hostname = int(rand(3333333)) . ".myhostnames.com";
  20.         my $rand_ip = int(rand(255)) ."." . int(rand(255)). ".". int(rand(255)). ".". int(rand(255));
  21.         $obj->create_record(type=>"A", name=>$rand_hostname,content=>$rand_ip,ttl=>1);
  22.     }
  23. }
  24. sub get_rr {
  25.     my @records;
  26.     my $ref = $obj->get_records(‘per_page’=>100);
  27.     my @rr = @{$ref->{result}};
  28.     for (@rr) {
  29.         if ($_->{name} =~ /^d+/) {
  30.           push @records, [$_->{id}, $_->{name}];
  31.         }
  32.     }
  33.     return @records;
  34. }
  35. sub update_rr {
  36.     my @records = get_rr();
  37.     for  (@records) {
  38.         my $id = $_->[0];
  39.         my $hostname = $_->[1];
  40.         my $rand_ip = int(rand(255)) ."." . int(rand(255)). ".". int(rand(255)). ".". int(rand(255));
  41.         $obj->update_record($id, type=>"A", name=>$hostname,content=>$rand_ip,ttl=>1);
  42.     }
  43. }
  44. sub delete_rr {
  45.     my @records = get_rr();
  46.     for  (@records) {
  47.         $obj->delete_record($_->[0]);
  48.     }
  49. }
0
分享
清秋 站长
文章 3967评论 10
赞赏
清秋
相关文章
  • 为什么我所有浏览器都翻译不了
  • 美西 9929 都 GG 了吗?
  • 甲骨文vps xshell 连不上
  • 502 Bad Gateway 有人为此负责吗?
  • 哎 过年两个几十亿的项目该怎么选大佬帮忙啊
评论 (0)
再想想
    沙发抢一发
搜索
清秋
站长
3967文章
10评论
7获赞
最新文章
良心云新活动:4年2核4G内存6M带宽云服务器只需432元
一月 30, 2021
一键测试Linux VPS主机性能脚本(配置/CPU/速度/路由)
一月 2, 2021
一键脚本较全面测试Linux VPS性能和网络下载速率
一月 2, 2021
引以为鉴:为什么不要买 PacificRack 的机器
一月 2, 2021
随便看看
华纳云 – 香港GIA – 独立服务器|不限流量 – 月付¥2013
十二月 4, 2020
一键测试Linux VPS主机性能脚本(配置/CPU/速度/路由)
一月 2, 2021
快云科技 – 香港GIA|大带宽 – KVM架构 – 月付¥100
十二月 5, 2020
JustNews主题 V5.7.3版本 破解版 开心版 下载 ,附破解教程!
十二月 30, 2020
引以为鉴:为什么不要买 PacificRack 的机器
一月 2, 2021
快讯
12岁男孩为改名起诉父亲
二月 28, 2021
教育惩戒新规3月起实施
二月 28, 2021
江苏句容进口甘草酸粉核酸阳性
二月 28, 2021
最低刑责年龄下调至12周岁
二月 28, 2021
人民日报:爱国者达叔永远是主角
二月 28, 2021
更多
  • 首页
  • 我要投稿
  • 快讯
Copyright © 2018-2021 测评信息. Designed by nicetheme.