妖城在线论坛 - 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程序，以简化手工操作。妖城在线论坛6 Q% |3 _+ I/ ?3 N8 D
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. q' P; o' l; r# i1 p: F, v
执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& i4 J! @  b! }( j
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。bbs.mocwww.com' p3 r3 D1 J. s% H3 x

前提条件：
1. 服务器上安装了perl程序bbs.mocwww.com4 F1 |8 t$ R3 f8 m; c
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。魔力私服,最新魔力宝贝私服技术交流% d) H' n- o1 Y7 r8 [  U

代码如下：
#!/usr/bin/perl魔力私服,最新魔力宝贝私服技术交流" r. }  s$ F# i4 @6 Q% s' i

print "Please input the new IP:";% R; F. M$ g( \) @+ z7 }
$input=<STDIN>;
chop($input);bbs.mocwww.com. X3 r2 `  d8 T  d' E( r

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; ~) y4 t# C1 {3 |
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;
while(<IPA1>)妖城在线论坛1 Y+ ]. B0 ]0 e$ s
{魔力私服,最新魔力宝贝私服技术交流, Z+ u) {% o; w% w- k
      @item=split(/:/,$_);
      if($line<=2)
      {魔力私服,最新魔力宝贝私服技术交流4 A) T. _$ ?3 v/ e1 r! O
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      elsebbs.mocwww.com* V. k: N; z! \5 L  j
      {魔力私服,最新魔力宝贝私服技术交流. |7 ^9 a9 y3 v/ Y6 p: o/ S
            print IPA2 "$_";
      }
      $line++;
}
close(IPA1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 h# H, `- [# g, s* ?5 b
close(IPA2);妖城在线论坛. _% A+ F0 N# H

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";妖城在线论坛1 l) \8 x/ [4 n* r: O: y* A9 X3 @9 }
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: _/ S5 s  M( O: _" v- n
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* D& |% d1 Z5 e! q: a
$line=1;
while(<IPB1>)
{bbs.mocwww.com+ S6 A# O/ i0 |
      @item=split(/:/,$_);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& |% Y: r# f  ^7 g9 N3 i# x
      if($line<=2)
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";bbs.mocwww.com3 U6 |4 X+ f( e
      }4 o( Q: I) y( H' z
      else
      {
            print IPB2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流" K. E# k( ~1 A# V3 a( m8 v
      $line++;
}妖城在线论坛% [, k1 c. q% o& U, G8 R9 l# f" b
close(IPB1);; k: X( Y4 C7 i4 P# B4 w' R# s3 h
close(IPB2);
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 ^+ h" I. ?5 I: a: U
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>)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. C3 |& w1 c! `5 @' u( y7 A+ v
{
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";9 M) b" W- I( [6 c9 {; L- Y
      }bbs.mocwww.com/ i/ {3 f( j: w( U, K. d
      else
      {bbs.mocwww.com& @. g7 q' Y% R) x7 n6 X! V( a
            print IPC2 "$_";
      }
      $line++;
}
close(IPC1);) ]6 Q7 z* w0 X2 s2 k( \
close(IPC2);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, c! Y8 m, R' u" l' N4 S2 C
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]

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

很好很强大``

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

修改那个不麻烦吧
貌似这个工具没有必要bbs.mocwww.com+ r# G% m& z6 W: H' `- M8 c
不过还是顶啦

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

呵呵..谢谢咯...

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

看了，顶了！谢了！
thanks~

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

看玩顶下妖城在线论坛! m2 l7 ^" \5 o# p0 n

又荒度了3天

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

很不错,谢谢LZ!

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

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

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