测评信息 测评信息
  • 首页
  • 主机推荐
  • 产品测评
  • 网络干货
  • 限时优惠
  • 建站指南
  • 主机推荐
  • 产品测评
  • 建站指南
  • 网络干货
  • 限时优惠
首页 VPS综合讨论 分享一个通过api管理cloudflare dns记录的脚本

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

清秋 1月 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
猜你喜欢
  • 为什么我所有浏览器都翻译不了
  • 美西 9929 都 GG 了吗?
  • 甲骨文vps xshell 连不上
  • 502 Bad Gateway 有人为此负责吗?
  • 哎 过年两个几十亿的项目该怎么选大佬帮忙啊
评论 (0)
再想想
    暂无评论
搜索
清秋
站长
4755
文章
10
评论
15
获赞
最新文章
宝塔7.7原版+开心脚本+优化脚本
5月 25, 2022
pacificrack 测评:$20/年,6G内存/4核/80gSSD/15T流量,送一个快照+一个备份
3月 21, 2021
良心云新活动:4年2核4G内存6M带宽云服务器只需432元
1月 30, 2021
一键测试Linux VPS主机性能脚本(配置/CPU/速度/路由)
1月 2, 2021
随便看看
宝塔7.7原版+开心脚本+优化脚本
5月 25, 2022
快讯
广东新增本土确诊9例
6月 4, 2021
特斯拉公司召回部分进口汽车
6月 3, 2021
华为正式发布鸿蒙手机操作系统
6月 3, 2021
31省份新增确诊24例 本土15例
6月 3, 2021
华为正式发布HarmonyOS 2
6月 3, 2021
更多
  • 首页
  • 我要投稿
  • 快讯
Copyright © 2018-2022 测评信息. Designed by nicetheme.