对于经常要更换IP(或域名)的端,因为web验证的关系,需要经常手动更改PUK3、PUK3_CEN、Update等目录中的newest.txt文件,为此写了这个没什么含量的小perl程序,以简化手工操作。 dedecms.com
执行代码:
1. 把下列程序代码(红色字体部分)保存成一个文件,如addip.pl,并上传至某目录下
2. 登陆该目录,执行命令 perl addip.pl ,输入欲更改的IP地址(或域名),回车即可。 本文来自织梦
前提条件:
1. 上安装了perl程序
2. web验证相关文件在/var/www/html目录下,若不是,只需更改脚本中相应目录即可。 本文来自织梦
代码如下:
#!/usr/bin/perl
内容来自dedecms
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);
内容来自dedecms
1.76精品传奇_1.76天下毁灭_1.76复古传奇_英雄合击_中变靓装传奇_无忧传奇
传奇花屏补丁,花屏补丁,土城花屏补丁,盟重土城花屏补丁下载,土城花屏补丁下载,沙巴克花屏补丁,传奇土城花屏补丁下载
网站每天发布最新、最好的传奇版本下载和与传奇服务端配套开区传奇模版,网游技术教程全部免费下载!
无忧网络是目前唯一家所有的传奇服务端,传奇私服花屏补丁,盟重花屏补丁和传奇客户端下载都经过站长亲自测试并配有真实测试图!
所有的工具软件和传奇版本在发布之前,都会经过站长亲自测试,保证chuanqisf可以进入游戏,所有软件都无毒无插件!
本站声明:本站所有技术资料与下载资源均为网络搜集整理,并不代表本站的观点与立场,如有侵犯您的权益,请来信指出,本站将立即改正Copyright © 2002-2014 无忧网络 版权所有蜀ICP备09041899号