提供域名,dnspod 账户密码(毕竟dns密码比较重要 不能谁 cat一下都可以看到 需要base64加密),原IP,切换目标IP, #!/bin/perl use warnings; use MIME::Base64; use LWP; use Encode; use JSON; use Data::Dumper; my $ChangeDomain='linuxjs.com'; my $BeforeIP='XXX.XXX.XXX.XXX'; my $ChangeIP='XXX.XXX.XXX…