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, ;
41.         }
42.     }
43.     return @records;
44. }
47. sub update_rr {
48.     my @records = get_rr();
49.     for  (@records) {
50.         my $id = $_->;
51.         my $hostname = $_->;
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($_->);
62.     }
63. }