jeffpan大佬：

  1. use strict;
  2. use warnings;
  3. use Net::Cloudflare::DNS;
  5. # 这是一个perl脚本，安装Net::Cloudflare::DNS模块
  6. # 你必须提供cloudflare的登陆email、api-key以及域名的zone-id，从面板可以获取到
  7. our $obj = Net::Cloudflare::DNS->new(email    => $ENV{‘CLOUDFLARE_EMAIL’},
  8.                                     api_key  => $ENV{‘CLOUDFLARE_API_KEY’},
  9.                                     zone_id  => $ENV{‘CLOUDFLARE_ZONE_ID’},
  10.                                    );
  12. # 如下三个测试函数，你自己修改成自己想要的
  13. # 这个函数用来增加dns记录
  14. add_rr();
  16. # 这个函数用来更新dns记录
  17. update_rr();
  19. #这个函数用来删除dns记录
  20. delete_rr();
  23. sub add_rr {
  24.     for (1..10) {
  25.         my $rand_hostname = int(rand(3333333)) . ".myhostnames.com";
  26.         my $rand_ip = int(rand(255)) ."." . int(rand(255)). ".". int(rand(255)). ".". int(rand(255));
  28.         $obj->create_record(type=>"A", name=>$rand_hostname,content=>$rand_ip,ttl=>1);
  29.     }
  30. }
  32. sub get_rr {
  33.     my @records;
  35.     my $ref = $obj->get_records(‘per_page’=>100);
  36.     my @rr = @{$ref->{result}};
  38.     for (@rr) {
  39.         if ($_->{name} =~ /^d+/) {
  40.           push @records, [$_->{id}, $_->{name}];
  41.         }
  42.     }
  43.     return @records;
  44. }
  47. sub update_rr {
  48.     my @records = get_rr();
  49.     for  (@records) {
  50.         my $id = $_->[0];
  51.         my $hostname = $_->[1];
  52.         my $rand_ip = int(rand(255)) ."." . int(rand(255)). ".". int(rand(255)). ".". int(rand(255));
  54.         $obj->update_record($id, type=>"A", name=>$hostname,content=>$rand_ip,ttl=>1);
  55.     }
  56. }
  58. sub delete_rr {
  59.     my @records = get_rr();
  60.     for  (@records) {
  61.         $obj->delete_record($_->[0]);
  62.     }
  63. }