打印

对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程序，以简化手工操作。魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 C5 T6 E$ V1 w9 F" I# M: ^: T  K8 Z

执行代码：魔力私服,最新魔力宝贝私服技术交流7 [6 n0 O( v8 w
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下妖城在线论坛( Y3 ?% w# F& `' i) u4 s
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
魔力私服,最新魔力宝贝私服技术交流& P9 F$ N( x6 q" J& `3 A7 Z( Z
前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：
#!/usr/bin/perl妖城在线论坛8 @; G! S" ]  p3 x" P
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 {; v1 [/ u; L) w
print "Please input the new IP:";
$input=<STDIN>;
chop($input);

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( r( e$ c" b' _1 @- C$ r6 S
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;
while(<IPA1>)bbs.mocwww.com, |/ [% u0 n' r. P0 b$ b
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, ]6 R4 m2 D$ M
      @item=split(/:/,$_);魔力私服,最新魔力宝贝私服技术交流6 d/ B( k* i" l" L, ^* n
      if($line<=2)妖城在线论坛1 G, o  y2 \8 u  m! f% e3 e
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {bbs.mocwww.com$ w# g3 D  ]3 e* I
            print IPA2 "$_";
      }
      $line++;
}
close(IPA1);妖城在线论坛2 O1 w- u- I1 v9 k9 v
close(IPA2);
$ @) v- a2 x. ?( u
system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";bbs.mocwww.com$ }' e* b9 m- P  E) |) C. v
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");bbs.mocwww.com# L/ C, |- j1 p$ ]$ ~
$line=1;4 ~" @0 @5 i# j8 j  A& S: P  u
while(<IPB1>)bbs.mocwww.com7 A9 H7 j# z9 B: Z5 w8 b& I
{bbs.mocwww.com$ j9 O, ^5 w5 w( r/ U7 Z0 n
      @item=split(/:/,$_);魔力私服,最新魔力宝贝私服技术交流2 S$ q' M& p$ r8 Y
      if($line<=2)% v5 P# H& V# a: s; a
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }bbs.mocwww.com5 ~" Q0 ^% H1 ~2 l! F$ q, J8 w
      else
      {魔力私服,最新魔力宝贝私服技术交流7 y* W7 B# N- }3 w, ^% ?% G
            print IPB2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* w7 s- I) Q2 H9 A2 l! W
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  |' \/ N# Q4 U1 i
      $line++;魔力私服,最新魔力宝贝私服技术交流: f0 h$ n9 d  [6 d
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* d" i- l! ^! N
close(IPB1);( P% @4 g  I' _) o3 b( h# q, d# K) d
close(IPB2);魔力私服,最新魔力宝贝私服技术交流' H% {& z1 r4 `. S, ^. Q% C4 L

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");妖城在线论坛, c' e* o# |" w! y' X+ P
$line=1;魔力私服,最新魔力宝贝私服技术交流' M) d/ v9 F' k* x1 k! B- P
while(<IPC1>)* \2 ^1 e9 o+ o" b! l; |8 D
{魔力私服,最新魔力宝贝私服技术交流- b$ F. |8 E% P& b8 L/ f- I
      @item=split(/:/,$_);bbs.mocwww.com. O3 y) ?2 E& b7 {
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ e" q/ L( a  e. R- O
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else妖城在线论坛8 F  o( ~" A9 ?. [  `6 D4 L
      {bbs.mocwww.com# _$ s8 Y( Q7 \, j) E/ \& R* ?" E
            print IPC2 "$_";
      }bbs.mocwww.com  T6 U8 A- F) i6 l6 @
      $line++;
}
close(IPC1);妖城在线论坛, \. g' D7 N% N3 h  R  {
close(IPC2);
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 L4 W* C6 L( S( y- T. B6 W( q
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]