打印

对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程序，以简化手工操作。bbs.mocwww.com9 G% l; P* a$ r& T& S: s+ i

执行代码：妖城在线论坛$ ~" d- g: R7 t& I& u7 G7 Z2 Q
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。bbs.mocwww.com8 n, K$ i* R) B
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) {* c  ^7 B! u3 u( f) D/ I& B6 W. j
前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。
魔力私服,最新魔力宝贝私服技术交流  m, K7 P& s7 u& ]6 N
代码如下：
#!/usr/bin/perl
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 w% \1 f' B5 u# O
print "Please input the new IP:";妖城在线论坛1 ]  W9 y/ A& s5 p( w
$input=<STDIN>;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* ?2 ~( |' _4 c' V9 f/ _
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");bbs.mocwww.com7 r1 e# I. l3 e; X
$line=1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 O6 [! }2 X2 S# _4 E
while(<IPA1>)魔力私服,最新魔力宝贝私服技术交流# W0 ?, O' j+ ]# ^7 p  P
{
      @item=split(/:/,$_);: |. x6 H( z: u
      if($line<=2)
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) Q, b1 F8 G  `  U7 W9 D
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }妖城在线论坛- h4 M* M* ?& w7 Q
      else/ ]0 A5 I5 f# b2 }" v  ~! h
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' \" \: C4 @$ l' U, I& e6 p
            print IPA2 "$_";
      }) A/ S! U7 h; Q" N  O. B* a& N
      $line++;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: ^# @# S- |2 L- ?. t* E
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ M- s+ n# z9 @5 x1 q5 c
close(IPA1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& `3 @1 h  c& O* V/ e" P! g
close(IPA2);4 X5 X$ F0 V, i1 n" A  K5 T) j
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# {" d% h7 u" |4 ~' v5 p2 J1 C
system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 _6 u1 q0 n, `2 P" \) b  S$ K
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");魔力私服,最新魔力宝贝私服技术交流/ f1 y' \8 f) N+ N: c! h6 d
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;
while(<IPB1>)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 e5 e  G' J# |3 W
{bbs.mocwww.com3 O: v5 r9 Z& j! f
      @item=split(/:/,$_);# F- E) K+ V7 D- v* p3 p
      if($line<=2)bbs.mocwww.com% Z2 `  }* [% O: l" n
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛1 o  [, J& Z( a
      }
      else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  ^8 K+ S, f: q
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, p5 y  C5 F# q0 p* c2 q- \% E1 Q
            print IPB2 "$_";妖城在线论坛2 D( W( ]* {1 P7 i
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ a3 z6 D, d3 _) J
      $line++;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ r# B- u# c2 y0 C* h
}
close(IPB1);bbs.mocwww.com. }# ~$ h: C0 Z4 H9 E4 m* o
close(IPB2);魔力私服,最新魔力宝贝私服技术交流) a+ K" Z# H/ `: j

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& a5 U  ^# J5 g/ m$ ^% V
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;
while(<IPC1>)! g3 ~# l" p! M+ S- l" ~; P( S
{
      @item=split(/:/,$_);妖城在线论坛, b2 o* M: Q& [% z; R% `
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛. Y; T- q. @& N: v# @% J- ^1 ^1 e
      }
      else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# }, j( h# D! ~, D  P; V
      {
            print IPC2 "$_";
      }妖城在线论坛6 ?8 q# r1 i  t: i& z+ x/ l1 r0 K2 S
      $line++;2 s. P5 j5 j- v/ }5 J0 k! y1 m
}
close(IPC1);
close(IPC2);

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