打印

对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程序，以简化手工操作。2 j) b2 p% i1 c' H) T; f1 s
魔力私服,最新魔力宝贝私服技术交流. D+ n4 P  H: K+ h# a$ e9 F/ @# K
执行代码：魔力私服,最新魔力宝贝私服技术交流/ X7 Y2 e8 J- f& u: Z, H3 N) }, N- H
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。bbs.mocwww.com6 n4 P2 O$ Q) c& u  }4 J2 w/ i
魔力私服,最新魔力宝贝私服技术交流5 I! ^! y; U+ C  _$ q$ {- O7 @7 T
前提条件：
1. 服务器上安装了perl程序—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 b4 P* q. S; W4 c& M
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：* Z0 Q2 N  O4 _3 Y
#!/usr/bin/perl魔力私服,最新魔力宝贝私服技术交流' [& B  R9 j% O' n- J% G/ G

print "Please input the new IP:";
$input=<STDIN>;
chop($input);
bbs.mocwww.com5 c# ], K: T: K! Z- V# i! R
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");妖城在线论坛& }9 |1 @. s- q  o, O2 S
$line=1;
while(<IPA1>)
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. e$ |& f& C* Z: e/ R' ^% _1 A' |
      @item=split(/:/,$_);
      if($line<=2)
      {妖城在线论坛/ q: \* f+ ~( d( f, ~2 S/ v- o
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";bbs.mocwww.com2 r0 ~; b, W' }  Y! G# k7 m8 n5 [: d" r
      }
      else
      {bbs.mocwww.com- X1 `" d0 }, Z; v, ^8 S9 f8 f/ @' o
            print IPA2 "$_";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 h( I3 S  l& s& u/ d" e
      $line++;
}0 \3 r. w% y7 g$ l: L
close(IPA1);, e4 ^# x5 L9 A, m' e
close(IPA2);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, N6 z; u& R, k9 X
system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";bbs.mocwww.com* K9 {9 S4 {" ~* P7 ?' J# W
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ w7 r5 @( U& U: `
$line=1;
while(<IPB1>)
{
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! J4 ^; z4 r$ e* a) o: `
      if($line<=2)魔力私服,最新魔力宝贝私服技术交流  x9 t+ \# g) U! X# ^, {
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 L( d& j4 w) I0 S1 w' B
      else
      {bbs.mocwww.com* R6 q% F. I, H7 f7 Y( _# b4 N
            print IPB2 "$_";
      }bbs.mocwww.com, M" Y4 h. ^$ F1 ?5 Z. C( [- j1 F
      $line++;妖城在线论坛4 l! K8 R$ L" Q2 J! q* A& g
}
close(IPB1);: y0 y0 V. u; o; Y1 [0 h/ Z% ]. U
close(IPB2);
! g' R1 b( o. E
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编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. n4 p% x7 ~* w1 t- k0 r
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;
while(<IPC1>)
{bbs.mocwww.com) _- C7 V/ [9 U' _
      @item=split(/:/,$_);
      if($line<=2)bbs.mocwww.com- w8 x" H' ]2 k# H& w" @! T
      {妖城在线论坛# V% x3 \7 b: ]" g/ a) v& P
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! E, d% h$ t5 o, y
      }
      else
      {
            print IPC2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 o# v1 ~. Z) o' t% p0 F
      }
      $line++;bbs.mocwww.com* C# [/ p* f8 j( ]" ?
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ v3 B3 z0 c' Z2 _# K
close(IPC1);0 ]* L9 C3 I7 t% V2 Y# L$ b9 M
close(IPC2);

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