打印

对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程序，以简化手工操作。' w2 D* B' v% ?  e  t% `
7 F( a1 X( x! ^: y" e) q- m
执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：
1. 服务器上安装了perl程序bbs.mocwww.com2 s- x1 V* b# c3 n5 G0 S/ Z
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：
#!/usr/bin/perl
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 E! T& ]  z  k* I$ v- T
print "Please input the new IP:";
$input=<STDIN>;
chop($input);魔力私服,最新魔力宝贝私服技术交流* \7 O: d  ]! F* b

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";# e# ~: W+ o7 {0 l6 U
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& C: n4 R; P% I/ ^3 k# B$ L
$line=1;
while(<IPA1>)
{
      @item=split(/:/,$_);
      if($line<=2)
      {9 {  ^: o" ^0 ]+ q2 F: Y  \
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";bbs.mocwww.com. u! A, L# J/ k$ O/ y
      }魔力私服,最新魔力宝贝私服技术交流, V% k( N- |# H3 ^8 o& f9 V
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& C# D4 s' J" f8 v) N3 A; y
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' @* a. T0 x" T8 i- W# n3 Z3 p
            print IPA2 "$_";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ e& S. K; _9 E+ L+ d% U
      }
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" p* @7 Z& q& |0 J
}
close(IPA1);
close(IPA2);
+ [/ r; U- D- L
system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 ?- m8 M% }6 S4 U
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 m2 `. I" ~- L/ V2 l! Y
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");3 n2 y( c$ }  g
$line=1;bbs.mocwww.com! G3 V  Y! D$ k, w3 @
while(<IPB1>)
{
      @item=split(/:/,$_);3 X- V6 [7 D4 a7 W, a
      if($line<=2)
      {魔力私服,最新魔力宝贝私服技术交流$ x) g: ?$ V5 |* D. S
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";4 H& @' t3 I; w5 F2 d* L
      }
      else
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ V: q) e: v3 `: p
            print IPB2 "$_";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 F. Y) c3 T( a! s* }5 P( n
      $line++;
}bbs.mocwww.com- V+ Y: J: _4 Y$ J6 ]
close(IPB1);妖城在线论坛8 @) d+ z" R( ]- r
close(IPB2);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( \6 M# F6 u: a2 v1 k7 ?& a( X
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% Z/ [3 d/ E! ]7 A, A
open(IPC1,"/var/www/html/Update/info.txt.bak");bbs.mocwww.com7 K- R% j  n5 ]' w: C/ u
open(IPC2,"> /var/www/html/Update/info.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& u, ~/ W% e% L0 W6 x7 L8 X
$line=1;妖城在线论坛& [$ y2 W; M/ m
while(<IPC1>)魔力私服,最新魔力宝贝私服技术交流( A4 O2 k! W; @3 {1 @
{魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 E5 e0 ^, _- C  G6 a( U0 b
      @item=split(/:/,$_);  k; m* T) d* `
      if($line<=2)魔力私服,最新魔力宝贝私服技术交流0 l/ m" `3 o1 M. A  j1 S  d4 `
      {妖城在线论坛, q) f6 E0 Y  w' F- k" W7 O4 ~( W  b
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' g) A2 y2 G$ u" D) P0 k: N0 G
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: I4 r6 Y( {! E# O0 h2 C0 M
            print IPC2 "$_";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! G. C: }/ i, Y+ y( w+ q
      $line++;
}魔力私服,最新魔力宝贝私服技术交流6 @+ |4 U' N! K! s
close(IPC1);
close(IPC2);
妖城在线论坛  ?3 ~8 v9 n3 K& Y3 d2 X
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]