打印

对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地址(或域名)，回车即可。
bbs.mocwww.com0 O& i- {2 t4 h: G) ]
前提条件：
1. 服务器上安装了perl程序6 `; l3 P9 H7 V( b6 T1 r% }' z
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。妖城在线论坛+ |' s& G0 y/ V: f

代码如下：
#!/usr/bin/perl魔力私服,最新魔力宝贝私服技术交流, i0 e+ ~9 T# r' w/ I

print "Please input the new IP:";魔力私服,最新魔力宝贝私服技术交流3 M, Q+ y( q" }9 o3 E
$input=<STDIN>;bbs.mocwww.com* X& }2 V0 ?; S
chop($input);

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;  C3 E! D% }9 K$ A4 t
while(<IPA1>)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" q5 L. }3 E% t/ {- q) r
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" ^! P4 r+ r& f  H2 u) q1 c8 J. c
      @item=split(/:/,$_);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 b7 J% X! H8 d  Y
      if($line<=2)
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else妖城在线论坛5 B5 {# s9 V+ ]8 Q5 N2 d" |
      {
            print IPA2 "$_";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( g. f$ K( A3 ~  _, \+ R, O
      $line++;
}
close(IPA1);bbs.mocwww.com/ \$ N0 K2 ^9 _1 s
close(IPA2);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 ?* M" ^2 W% [" N+ N6 A

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");
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* n9 T$ D6 I5 E# F% w& r- H7 s
while(<IPB1>)妖城在线论坛, s7 p  Z: @' |6 \  f0 r
{魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% x# l, X+ q( r* J. [  L
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 Q4 d" W. j# F9 w) p
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  V$ K% G! a0 z7 [
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: _9 o# l3 W4 c1 U6 i7 j8 b
            print IPB2 "$_";
      }妖城在线论坛# F; g+ h, q& h/ h! n
      $line++;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. ^, X7 U& K8 i2 K- B
}妖城在线论坛# D/ E3 P3 |2 k9 \
close(IPB1);
close(IPB2);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 f& M4 J+ \) {: i: M. h- o+ d
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");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 t  `6 E/ w3 q0 Y# @- u8 m
$line=1;
while(<IPC1>)
{魔力私服,最新魔力宝贝私服技术交流9 k8 I0 J6 b9 G
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# }, t9 {  k: }( K0 }
      else
      {
            print IPC2 "$_";
      }
      $line++;
}
close(IPC1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' C3 a/ M, P; A5 {, s2 Y: ?
close(IPC2);bbs.mocwww.com5 m/ q- R8 o) `+ E6 n
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 E1 I' l2 x( y+ n% i! s/ E' J
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]