妖城在线论坛 - Powered by Discuz! Board

标题: 对PUK3等目录中newest.txt更改的小脚本 [打印本页]

作者: asdf1234 时间: 2008-1-1 13:19 标题: 对PUK3等目录中newest.txt更改的小脚本

对于经常要更换IP(或域名)的服务器端，因为web验证的关系，需要经常手动更改PUK3、PUK3_CEN、Update等目录中的newest.txt文件，为此写了这个没什么技术含量的小perl程序，以简化手工操作。bbs.mocwww.com8 v! a; C1 l& g8 t5 B' u0 p. j

执行代码：魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" y! _* D4 W- ^. G& i& S
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。魔力私服,最新魔力宝贝私服技术交流3 W! M0 ?; f; j2 O* Q" f& k
# n' n) ~9 ]1 D
前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：妖城在线论坛( ?  ?% \8 g. z
#!/usr/bin/perl
bbs.mocwww.com7 x* p9 t% I6 f" O0 |5 Y8 U# K; U
print "Please input the new IP:";
$input=<STDIN>;
chop($input);魔力私服,最新魔力宝贝私服技术交流( _5 ^2 N+ Y. }9 l$ a

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ a5 ^: W5 _4 e
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");魔力私服,最新魔力宝贝私服技术交流& J& `) p/ Z+ f  O, d. i
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;bbs.mocwww.com9 h! C5 u+ i: |# a$ G$ i
while(<IPA1>)6 y1 j/ b9 C7 G0 f2 c
{
      @item=split(/:/,$_);
      if($line<=2)
      {妖城在线论坛# V. x' o* {; O
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* g" P3 {# f* @2 Y
            print IPA2 "$_";
      }
      $line++;
}魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 E( ^' i# p6 b% W' f
close(IPA1);
close(IPA2);bbs.mocwww.com: @( X0 X; m" s4 _

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";魔力私服,最新魔力宝贝私服技术交流; e& F3 E3 i. }+ o) \5 r; h
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");) z: P9 ?  a* T& g' C" Y* \
$line=1;魔力私服,最新魔力宝贝私服技术交流" O1 W* K8 _: o+ R. }) o3 x
while(<IPB1>)
{魔力私服,最新魔力宝贝私服技术交流. t+ Z% T( ^! h+ C1 G
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力宝贝私服技术交流8 A0 ~  \2 b# x; S9 Q$ W8 `
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# ]( X  D1 r, T3 g) M: z' u
      {
            print IPB2 "$_";魔力私服,最新魔力宝贝私服技术交流" |$ Q: _4 m$ a- t" V
      }
      $line++;妖城在线论坛- T; a/ C& x+ ~! B8 v
}
close(IPB1);
close(IPB2);

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";妖城在线论坛- w6 P* E, v- P9 l2 {) w
open(IPC1,"/var/www/html/Update/info.txt.bak");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' K( N/ P# R  }7 Y1 s5 \* p
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;妖城在线论坛. e1 v1 ?2 c- B& z: E
while(<IPC1>)
{妖城在线论坛2 V4 R, ^# J# ?! X& O) @
      @item=split(/:/,$_);
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 X$ [9 R6 e1 S7 s( b; z, j
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else妖城在线论坛+ x8 ]5 ?: v5 n& }" y/ s8 I4 n
      {
            print IPC2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& O5 b7 r( E5 M- ?$ Q4 O
      }
      $line++;bbs.mocwww.com3 F) K% k, r3 Y, }3 H% E, |- Y
}
close(IPC1);
close(IPC2);
魔力私服,最新魔力宝贝私服技术交流# z5 P) l; H  m" P4 K1 c
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]

作者: 厶⒉姙⒈ 时间: 2008-1-1 13:34

很好很强大``

作者: qq887 时间: 2008-1-1 13:51

修改那个不麻烦吧
貌似这个工具没有必要bbs.mocwww.com) }" ]; m+ B% w
不过还是顶啦

作者: xuyaoxy 时间: 2008-1-1 14:01

呵呵..谢谢咯...

作者: ﹎▓ヾ僤莼べ 时间: 2008-1-1 15:36

看了，顶了！谢了！: p0 K8 C4 X2 _$ W
thanks~

作者: 31558770a 时间: 2008-1-1 22:30

看玩顶下

又荒度了3天

作者: wanwankan 时间: 2008-1-4 21:17

很不错,谢谢LZ!

作者: 夜光石 时间: 2008-1-4 22:08

很好很强大，懒人伟大的就是创新

欢迎光临妖城在线论坛 (http://bbs.mocwww.com/)