对PUK3等目录中newest.txt更改的小脚本

 对于经常要更换IP(或域名)的服务器端，因为web验证的关系，需要经常手动更改PUK3、PUK3_CEN、Update等目录中的newest.txt文件，为此写了这个没什么技术含量的小perl程序，以简化手工操作。
执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。
代码如下：
#!/usr/bin/perl
print "Please input the new IP:";
$input=<STDIN>;
chop($input);
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;
while(<IPA1>)
{
        @item=split(/:/,$_);
        if($line<=2)
        {
                print IPA2 "$item[0]:$item[1]:$input:$item[3]";
        }
        else
        {
                print IPA2 "$_";
        }
        $line++;
}
close(IPA1);
close(IPA2);
system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;
while(<IPB1>)
{
        @item=split(/:/,$_);
        if($line<=2)
        {
                print IPB2 "$item[0]:$item[1]:$input:$item[3]";
        }
        else
        {
                print IPB2 "$_";
        }
        $line++;
}
close(IPB1);
close(IPB2);
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;
while(<IPC1>)
{
        @item=split(/:/,$_);
        if($line<=2)
        {
                print IPC2 "$item[0]:$item[1]:$input:$item[3]";
        }
        else
        {
                print IPC2 "$_";
        }
        $line++;
}
close(IPC1);
close(IPC2);