打印

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

asdf1234

妖精

Rank: 2 Rank: 2

UID: 3763
精华: 1
积分: 112
威望: 0 度

阁楼大中小发表于 2008-1-1 13:19 只看该作者

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

对于经常要更换IP(或域名)的服务器端，因为web验证的关系，需要经常手动更改PUK3、PUK3_CEN、Update等目录中的newest.txt文件，为此写了这个没什么技术含量的小perl程序，以简化手工操作。妖城在线论坛1 o+ D7 P2 W; Z
妖城在线论坛" B1 G0 U+ E- F; I1 i
执行代码：魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" |% c5 d5 G( W8 T
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下bbs.mocwww.com8 f, K2 W7 N# m- V; W
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- ?. h" j' |& j: M

前提条件：魔力私服,最新魔力宝贝私服技术交流& v( S0 |8 N8 b
1. 服务器上安装了perl程序bbs.mocwww.com% g! s( N) O6 L. G0 {9 y
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：
#!/usr/bin/perl魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 j: y3 l' p5 N  J1 k' H8 v
bbs.mocwww.com0 [0 d  Y- d' O; p& N
print "Please input the new IP:";
$input=<STDIN>;
chop($input);魔力私服,最新魔力宝贝私服技术交流/ t$ V. i* s- H5 z0 b$ G

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";' s" V0 c& \) d9 x' ?
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");妖城在线论坛' B# C* l2 @& F/ P
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;
while(<IPA1>)
{6 c7 T% _+ c) s* j2 T3 S' j
      @item=split(/:/,$_);
      if($line<=2)
      {" J6 B  l- H; X+ C
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }妖城在线论坛3 d4 }) t3 A9 R4 a$ c& L" ^/ \& F  b
      else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 y) k3 _4 s, Q+ v  ]0 P
      {) R5 \( L9 ^% S  n+ \' R4 j
            print IPA2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流. }4 [4 v# T" l1 Q
      $line++;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ e& a! W- o0 \8 U; i+ s
}魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( w& E8 l& w( F( E
close(IPA1);
close(IPA2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& I" _$ I8 I& Y# z4 M2 ]# c- t

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");魔力私服,最新魔力宝贝私服技术交流! K- W4 G3 @+ ^
$line=1;
while(<IPB1>)
{bbs.mocwww.com( _& p9 i7 G" c; ]- ]+ Y
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. ^  N3 P+ i: S3 ~) v2 Z' x
      if($line<=2)
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& K2 H% \8 k  D& V8 n' A1 x+ Q
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛" y, B" ^& z, y# L8 t7 n2 J  T  ?
      }
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 D) p1 r5 Y5 ]
      {妖城在线论坛: u" T  Y& Q5 G# K3 x+ z
            print IPB2 "$_";
      }
      $line++;bbs.mocwww.com6 {$ g4 A$ Q2 ~9 Y
}
close(IPB1);
close(IPB2);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ t7 K( f& V" `0 }8 I2 H
魔力私服,最新魔力宝贝私服技术交流/ d6 T- ~1 P1 u' X; I9 s
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";bbs.mocwww.com) G  H$ T5 b! I7 |
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% T  l7 ], F5 y: t: R
$line=1;
while(<IPC1>)魔力私服,最新魔力宝贝私服技术交流- [  S, P  S; L' G& Z7 u
{4 Y% l9 [- _! w% i/ Z
      @item=split(/:/,$_);
      if($line<=2)
      {7 x# V8 s) H5 m* ~7 M
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛7 o2 J( V) @! O+ m- K$ }6 d  G
      }妖城在线论坛' p* d7 T4 [" j7 e! x1 H6 g
      else妖城在线论坛' a9 W; z: c: \, ^6 d
      {
            print IPC2 "$_";
      }
      $line++;妖城在线论坛, _4 F' i% v: E* `6 n) v
}
close(IPC1);妖城在线论坛# @7 ^/ |8 I3 q! ?
close(IPC2);
bbs.mocwww.com- C6 c) Q  [0 Z7 f
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]