打印

对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程序，以简化手工操作。
魔力私服,最新魔力宝贝私服技术交流/ o# f( _: H9 p* c; @/ v1 L0 o! T: R
执行代码：魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' b# Z7 L/ E) C3 T& F
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 R" b5 \1 |: d; @& P/ c( K, n$ L4 M
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 L, [0 {9 k; }8 h. K0 b# i* {( ]
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。魔力私服,最新魔力宝贝私服技术交流1 a0 e% s2 |$ A+ w

代码如下：妖城在线论坛3 W* }4 T! p+ g+ T8 g
#!/usr/bin/perl/ k% i0 v% F  d. l* N
+ f, I1 U/ S, @: l& u( y* g
print "Please input the new IP:";妖城在线论坛  t8 @5 X# c" f* f  ~
$input=<STDIN>;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, ~- ]9 B* `% Z
chop($input);

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";魔力私服,最新魔力宝贝私服技术交流3 ^3 K( k$ b% S# o9 G3 s
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");bbs.mocwww.com) v8 ~9 p4 M! I6 P1 o# }3 H
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;
while(<IPA1>)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" Q1 g0 K4 |- t  O: q) o, m; ], V# t
{
      @item=split(/:/,$_);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* P% U) S) C0 v- d7 _$ O7 g1 v
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ E4 ]$ ~( W+ c6 ]0 Y) [
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- j8 u( {: \& ^- E0 d
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }/ w6 [  ?( `% n3 O! _4 r5 \
      else
      {
            print IPA2 "$_";
      }
      $line++;
}
close(IPA1);妖城在线论坛! Y% W/ V) `* I2 j
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");魔力私服,最新魔力宝贝私服技术交流$ e8 V2 J0 V% m& ]+ L
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;
while(<IPB1>)& W7 Y! L- E1 ?% p( `& {
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 m3 n. N8 C9 O- l' G% M/ B
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# }9 H5 m9 R! p+ k, F
      if($line<=2)
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. [. R; Y2 N, n8 }) Q; X: X
      }bbs.mocwww.com- U1 i3 [0 ~! P& m  F- A" I
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 U. g* @  R: M6 ~0 u3 N$ |6 b
      {
            print IPB2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 ?- t3 U4 N, W8 u  o/ `7 H
      }魔力私服,最新魔力宝贝私服技术交流& {% Q4 B1 j5 L/ e+ g* s
      $line++;
}妖城在线论坛2 j! ]4 J: ~9 b2 s% i
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");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ i( J4 f2 c; j4 O( @4 I
open(IPC2,"> /var/www/html/Update/info.txt");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) @( D; E2 m3 n( ^6 ?6 @$ R
$line=1;妖城在线论坛* N+ U: I5 G9 |3 q0 c  \
while(<IPC1>)魔力私服,最新魔力宝贝私服技术交流  t6 z, p4 d# Z. Z$ v) B
{bbs.mocwww.com1 |$ m# v! |7 k1 @$ F5 |
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";bbs.mocwww.com4 P* p4 Z' e0 S# z) L0 g& Y
      }
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 `% Q- @  X! Q7 t
      {妖城在线论坛7 }% ~+ O& O9 D0 |5 v9 X
            print IPC2 "$_";; Q# C  j6 {5 A, N
      }
      $line++;
}妖城在线论坛+ o9 J0 X' N0 D1 H6 I
close(IPC1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: r7 L/ j* r4 [  F
close(IPC2);

[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]