打印

对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地址(或域名)，回车即可。
妖城在线论坛3 x& p& {6 X8 B# p5 B) h' D# p, f* S
前提条件：
1. 服务器上安装了perl程序—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- L( z* v6 N% d$ U" ?3 G9 z
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 M2 M2 H$ @. a+ f' a) f
代码如下：
#!/usr/bin/perl魔力私服,最新魔力宝贝私服技术交流& C7 e+ N0 C$ A0 B8 \! L0 W0 d
魔力私服,最新魔力宝贝私服技术交流/ p5 d1 }  B6 M
print "Please input the new IP:";魔力私服,最新魔力宝贝私服技术交流; Z% [) J# y$ V3 M. [6 a/ h
$input=<STDIN>;
chop($input);
妖城在线论坛# t# f- I( U& Y2 {0 U& X. v* f( J* M
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");* P  ^; W/ V9 e$ f1 u: e6 x8 p
open(IPA2,"> /var/www/html/PUK3/newest.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  {0 y. _5 ?& m( Z1 b# m& s$ k
$line=1;
while(<IPA1>)
{
      @item=split(/:/,$_);bbs.mocwww.com$ A# k# g7 ]2 z- Y6 S  [
      if($line<=2)妖城在线论坛- }- {- Z* L1 s4 M3 m* F0 Z
      {bbs.mocwww.com+ F7 H  ]; r- i) P4 E+ h
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' f* ]0 Q3 X' c6 R0 H9 P% O5 t% t
            print IPA2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流  s6 @. \  u1 a0 ~+ R
      $line++;
}
close(IPA1);4 d  g$ L: v( ~. _: b
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");魔力私服,最新魔力宝贝私服技术交流3 X. E* S* y) t( G4 K0 d
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" a) D9 |' g+ h4 w, h  n; q
while(<IPB1>)魔力私服,最新魔力宝贝私服技术交流4 o- S* k' r! |
{
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* H/ T$ x9 c0 j- R/ T; [0 u
      {魔力私服,最新魔力宝贝私服技术交流! {5 n* m# K# d8 S( f0 K1 e
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力宝贝私服技术交流* s* I) z" z% B3 h% a! X
      else
      {
            print IPB2 "$_";
      }
      $line++;妖城在线论坛" X! G+ }2 Y- g3 {( ~4 b
}魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# q5 }- q/ J. f3 F7 V- N  i
close(IPB1);
close(IPB2);
妖城在线论坛' y% H  N5 F. S: c. Q) s0 x
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");妖城在线论坛! x4 K! d) T8 t# ]6 q
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;bbs.mocwww.com5 ?6 o- t- w% l5 d' T9 o6 ?
while(<IPC1>)
{bbs.mocwww.com# Y. X/ J# ^0 D7 M
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. C% j! s" {9 [* w
      }
      elsebbs.mocwww.com- c0 O) R# p7 o# d/ n* ^, A
      {bbs.mocwww.com8 Q- m: I4 C! b, `' h
            print IPC2 "$_";妖城在线论坛: k2 c9 }5 P& t9 W) X) O( k' M/ {
      }妖城在线论坛, _# G; P# r, Z2 k4 C  M' f
      $line++;4 v$ r; h  e4 \" W! f5 l& \
}
close(IPC1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! t3 C( B: V! K) {1 X- o# w, ~
close(IPC2);
妖城在线论坛. _' A0 O! L+ _2 R  t8 {7 o7 F
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]