打印

对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，并上传至服务器某目录下妖城在线论坛6 b# j8 C- C2 l) s: W
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。bbs.mocwww.com9 u5 I$ ?6 V; A# `- L* j; f
bbs.mocwww.com9 }* i! T& ~; s! }" Q
前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。
魔力私服,最新魔力宝贝私服技术交流  @3 ?+ l# e' V& N9 N6 L0 h0 K
代码如下：妖城在线论坛. x$ w) X6 v9 l4 L; d
#!/usr/bin/perl

print "Please input the new IP:";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- L; p, e, a5 `! K3 l: e
$input=<STDIN>;bbs.mocwww.com% b7 m) Y  `# P/ l( F( t/ x
chop($input);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, P6 m7 i- G, V" b

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";魔力私服,最新魔力宝贝私服技术交流6 M8 F+ i5 u" {3 E
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");bbs.mocwww.com  Q, D5 a; V5 Y' K2 n
$line=1;: H' q; V2 Z$ W" R- Q
while(<IPA1>)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 E$ U- T; R! g% P2 y
{
      @item=split(/:/,$_);bbs.mocwww.com% a  E+ q& ]2 p  V4 |- g6 [1 x
      if($line<=2)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! P1 Q# M7 _' R+ b# k* E* C, y. n
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛0 g* ^2 n2 G  U4 K2 T
      }
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) q/ n) I. a7 z: R4 R- A+ f+ h! p
      {
            print IPA2 "$_";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ j: ~2 i- q: v$ O0 J, i1 m
      $line++;
}
close(IPA1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! f0 S+ s+ d! F5 G% r
close(IPA2);
妖城在线论坛3 Y  a+ e5 V4 T% E' T
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");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;
while(<IPB1>)妖城在线论坛! }8 Z( m  N8 U- P6 Q8 R
{魔力私服,最新魔力宝贝私服技术交流# D& R) }3 l% j$ z3 C
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 m& i! H, t- H8 `! F
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ B5 x2 G0 u- D# Z; V) v5 A
      {魔力私服,最新魔力宝贝私服技术交流* l' f! z: w3 a
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛7 f, [# e* g* q
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# `. V/ I& u! K& u% o
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 X: Z0 ~8 N) h1 F$ G' J2 @, y
      {" q3 n8 ~0 W0 {# W. T9 Q" T- q
            print IPB2 "$_";
      }- X: T0 l+ N; l; G9 C7 c  l
      $line++;妖城在线论坛+ H4 t1 m' Y) R) [
}
close(IPB1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# t+ l( n% o  g8 r8 K) c
close(IPB2);bbs.mocwww.com$ E% `0 U4 m7 c- e' N7 O
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: A6 M$ n) d" n' m# Z0 g. p
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";bbs.mocwww.com3 n, D. {3 O: b6 U, V
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;
while(<IPC1>)妖城在线论坛" m1 {- _5 H& S
{
      @item=split(/:/,$_);魔力私服,最新魔力宝贝私服技术交流; L! u* s9 P8 Y, U0 c! D
      if($line<=2)妖城在线论坛4 }% _6 i. p0 q
      {魔力私服,最新魔力宝贝私服技术交流) D" ~# ^9 {: E% V/ V( N* Z# {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) u1 H3 N  t: z- r" |9 g
      {
            print IPC2 "$_";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' h/ D# W3 j! B7 Z4 H+ \2 m
      $line++;魔力私服,最新魔力宝贝私服技术交流, i, h& g+ R: D% O
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 E2 Q& X: W! J1 `5 F
close(IPC1);
close(IPC2);

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