打印

对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 _- Y$ L: W+ q# B. _& f- d8 {
) y( |$ d: M- X+ Q8 b' z
执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下魔力私服,最新魔力宝贝私服技术交流2 E' @+ i! ~8 W3 w
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
魔力私服,最新魔力宝贝私服技术交流. [+ I4 I6 S* B, m- o8 Q, ?
前提条件：bbs.mocwww.com$ c; p6 Y" i6 B2 u0 k3 C1 e  X4 c
1. 服务器上安装了perl程序* Y2 A3 O% A/ N2 p0 g. k
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 @: W  W1 u6 K, s% J) R

代码如下：魔力私服,最新魔力宝贝私服技术交流! j( t* w# ^" F" A+ V# c
#!/usr/bin/perl魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, Z' h/ U; X* ?0 p0 Y
$ |7 E( @7 i  j5 I
print "Please input the new IP:";
$input=<STDIN>;魔力私服,最新魔力宝贝私服技术交流6 R% I. G: i: n9 n% 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");妖城在线论坛  c* \3 }' h& j! X
open(IPA2,"> /var/www/html/PUK3/newest.txt");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 c1 P( p  L/ s
$line=1;
while(<IPA1>)妖城在线论坛. ~. ~- N- D* K6 o
{
      @item=split(/:/,$_);
      if($line<=2)5 [, q5 L  |0 S+ B
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% N) x' b; J* r; a& R- Q% V$ x
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 |  N2 T  T- N
      else7 s6 G, G7 M0 g: l
      {
            print IPA2 "$_";魔力私服,最新魔力宝贝私服技术交流1 T) {' U/ z0 K  q3 c/ p
      }
      $line++;' W) P7 h0 T1 k/ [7 G
}
close(IPA1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 K0 q  v$ K( h  z, `. I: j! g0 O
close(IPA2);

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");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' ?" q# Y! K' q9 J. N
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;
while(<IPB1>)魔力私服,最新魔力宝贝私服技术交流; N4 P: ?  O, B2 t7 ^
{魔力私服,最新魔力宝贝私服技术交流6 O9 `( P7 N" a4 c/ \
      @item=split(/:/,$_);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" k" M$ k. b; Q! ]
      if($line<=2)
      {, w: i8 J# _- m
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ k' S+ L6 F& m9 q2 m4 F' Q
      else
      {
            print IPB2 "$_";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 q5 N  r. U9 u+ I1 N
      }bbs.mocwww.com$ v2 q0 g$ }3 `3 _2 V: H9 K: q
      $line++;
}魔力私服,最新魔力宝贝私服技术交流8 e9 a; x/ l3 A( Y2 y, \
close(IPB1);
close(IPB2);
魔力私服,最新魔力宝贝私服技术交流9 ]' n" G2 V, @7 r" I3 w1 V6 w
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");, ]7 [& ~2 s! T
open(IPC2,"> /var/www/html/Update/info.txt");8 q# n, ?3 i* _/ ~) h
$line=1;bbs.mocwww.com2 k" j% c% k) H6 _
while(<IPC1>)
{魔力私服,最新魔力宝贝私服技术交流  g8 V8 k7 P* Q- ~
      @item=split(/:/,$_);妖城在线论坛9 F0 Z1 ?6 U) I  e/ j4 @$ D
      if($line<=2)
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 w. ?0 Z, E8 s! b
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }妖城在线论坛, d+ I! h4 d4 g
      else
      {4 T, P* Z: }5 G/ `9 z
            print IPC2 "$_";
      }
      $line++;bbs.mocwww.com. Z2 w% o3 w! ~& r5 F: K. [, L
}魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 ^7 [; h6 W1 h  v' c1 n
close(IPC1);
close(IPC2);4 k; b! Z2 [) [! n. M
4 w8 m  l8 W1 w6 {- \" R
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]