打印

对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 g# m8 F6 `- r2 M
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：妖城在线论坛9 b: m0 t+ O( X; N# S
#!/usr/bin/perl—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' j+ P5 U% Z$ D' O

print "Please input the new IP:";- E1 S- H# Y7 N
$input=<STDIN>;
chop($input);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  \; l. U: u. b' |7 u7 U
8 O$ F: O$ M+ Z1 l- T4 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");妖城在线论坛0 `6 _, m" |) E7 X. {
open(IPA2,"> /var/www/html/PUK3/newest.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 j- p* Y0 f. n: N8 x1 i! a* K
$line=1;魔力私服,最新魔力宝贝私服技术交流& _0 q$ L0 p: O" R7 c
while(<IPA1>)魔力私服,最新魔力宝贝私服技术交流8 S: a0 y. ?# V1 J
{
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; c/ S! Y/ g  e( P7 e4 n2 ~, x
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" B* b- @1 @6 Z1 B5 ~
      else
      {
            print IPA2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流7 a, C6 G- U, _' i4 M! u$ F( \, e9 h
      $line++;
}
close(IPA1);妖城在线论坛9 v& f2 N: O) A. K
close(IPA2);魔力私服,最新魔力宝贝私服技术交流6 H& r0 z  T8 ^# o% `5 Z% |

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 C1 A8 E: K) o
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");魔力私服,最新魔力宝贝私服技术交流& X. H, t% c2 W0 y- Z- @6 D: V
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");妖城在线论坛$ k, r( I# X. u1 U% S
$line=1;
while(<IPB1>); n: h. R  m- E3 p& S: U7 x5 c
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( B' J) e, A: b. s  R! B% a$ s
      @item=split(/:/,$_);妖城在线论坛$ `/ |; C( ~8 r* H$ X7 G
      if($line<=2)bbs.mocwww.com0 I( {' e# k) J
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& n3 [2 ~& z, v$ X& ]( k
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛0 Y0 S8 J9 p( u1 E$ b
      }魔力私服,最新魔力宝贝私服技术交流7 `/ I$ _+ W! G9 x  \- D( `
      elsebbs.mocwww.com' s1 g% }7 B- V9 Q8 u7 `: M
      {4 @+ A% b$ J- H; v
            print IPB2 "$_";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 Z8 _3 Q) T4 I0 B% a. p3 K, H
      }/ \7 a4 }  ?* N8 a$ B
      $line++;妖城在线论坛0 v) e- ]# t6 Z/ l' q0 n; @" Q
}
close(IPB1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 O% z% q& @" C; K7 I9 k6 J
close(IPB2);

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");魔力私服,最新魔力宝贝私服技术交流% Z8 v5 E: |' Z7 ^* U% j
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;% ]1 k. u7 V$ [7 {/ e5 v
while(<IPC1>)妖城在线论坛4 B. G! |  L  T5 d) M( j# g/ O8 A1 |
{
      @item=split(/:/,$_);妖城在线论坛) B0 p! w& g+ X" Z# w1 a) ~% x3 _
      if($line<=2)bbs.mocwww.com) Y  P4 y) P, @7 a  t& y; q1 p
      {( j, E8 a, T3 B* E  A
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力宝贝私服技术交流+ ?7 J7 e7 ?* [! c1 B( T; H) m
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 z8 x2 d& O$ y: l3 U0 k: I. m
      else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- R8 D& b2 j1 d, O% B6 U0 Y4 J
      {bbs.mocwww.com5 H& U; V4 c2 z6 S
            print IPC2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) H0 E9 I6 w; ?
      }bbs.mocwww.com( `3 M% R8 K6 C: \. N) W/ R+ B
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: u1 W$ c( W# I( B0 P  w' s
}
close(IPC1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' v0 m3 W) k3 U/ I7 o7 g
close(IPC2);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 S2 v& ~+ x5 X! N: I& |# X
2 E8 A6 A7 E" U. U) A5 d3 |( K
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]