打印

对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. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。& I3 m4 O4 u9 W( Z( P8 T

前提条件：
1. 服务器上安装了perl程序妖城在线论坛' u! D/ q" ?8 g! q+ r3 x' `
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：
#!/usr/bin/perl

print "Please input the new IP:";魔力私服,最新魔力宝贝私服技术交流( ~1 F/ j  a9 I  j9 f
$input=<STDIN>;魔力私服,最新魔力宝贝私服技术交流4 o* C& B1 |' H) O2 S1 s- Z0 Q
chop($input);

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! N4 m  ~$ V2 u7 ~
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");0 J# D' d/ U4 [( l3 L  S5 X
$line=1;
while(<IPA1>). N. x& \$ q* n; Y: [7 ^
{
      @item=split(/:/,$_);妖城在线论坛4 n% \8 W& f0 ]& j
      if($line<=2)
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力宝贝私服技术交流) |3 N! X6 D0 O; n
      }
      else
      {
            print IPA2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流+ e) s3 ^5 Y; n3 v: _$ f; ~* D
      $line++;
}
close(IPA1);妖城在线论坛- Y; i5 g: T1 e0 M7 X
close(IPA2);

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";bbs.mocwww.com5 C0 @+ b5 y  W6 B; S# D
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' V& Q' {4 w+ o( L! D
while(<IPB1>)
{魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 [. o5 v6 q% W8 j8 _( O
      @item=split(/:/,$_);
      if($line<=2)
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" P& W) O; h- `
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }妖城在线论坛- y" K6 D- K( T" n: t/ l
      else妖城在线论坛( B& ]+ w) f- L0 c7 u/ b6 O
      {魔力私服,最新魔力宝贝私服技术交流2 I9 n6 X% E/ i& M4 {$ F  F. h/ J
            print IPB2 "$_";
      }
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. G7 Y& j- c9 N, U( Q6 @/ B
}
close(IPB1);
close(IPB2);
bbs.mocwww.com- s' O1 Y) y8 O" ^3 d3 c
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");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% t5 m8 K% g' b' ?4 k; y* u9 R
$line=1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) @8 F1 Q- ~5 }( D6 s' m
while(<IPC1>)
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" \' n& M8 C. @0 z; j* `% f3 }
      @item=split(/:/,$_);, y$ E. J- u- C9 ~
      if($line<=2)
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 }7 R% Q& C/ c/ }6 z! T1 ~
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {妖城在线论坛8 v& x" f! \0 T6 X+ q
            print IPC2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 y7 j, O6 n; h  W' N5 G: h
      }
      $line++;妖城在线论坛2 ^6 ~/ _. o' t
}
close(IPC1);
close(IPC2);

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