打印

对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,电影,黑客,网络,网吧,破解,入侵,注册表0 ]/ O! T, V" M* s: j& ~3 L
执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下8 X' P, P% q, [0 t' n
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) H' \! J1 K% A! p2 l: H

前提条件：
1. 服务器上安装了perl程序bbs.mocwww.com3 f4 X& C& r8 Z  ?( P2 c
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。魔力私服,最新魔力宝贝私服技术交流# J) r5 I, C( k* @

代码如下：bbs.mocwww.com* y8 u2 U7 @# Q/ `
#!/usr/bin/perl
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; h  K0 s& W+ p- Z* ^$ i
print "Please input the new IP:";bbs.mocwww.com. U7 V- U- H) l7 a( k
$input=<STDIN>;
chop($input);魔力私服,最新魔力宝贝私服技术交流+ Y. D& W. ~! N, H6 R/ I
bbs.mocwww.com9 ?& [8 I3 X4 s& y, R
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");魔力私服,最新魔力宝贝私服技术交流3 b0 _3 a: [3 Z
$line=1;
while(<IPA1>)魔力私服,最新魔力宝贝私服技术交流& Z. s& S7 {0 E0 k8 a( m' D
{bbs.mocwww.com7 }; a) Z: v& b2 o7 ^+ p7 h
      @item=split(/:/,$_);魔力私服,最新魔力宝贝私服技术交流5 c5 K9 f% K3 ?9 K
      if($line<=2)魔力私服,最新魔力宝贝私服技术交流; a' ]. ~9 t6 H! [
      {bbs.mocwww.com* N' G% X- y3 v: t
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛5 m6 r5 z$ p6 J# F) D
      }
      else
      {妖城在线论坛4 @* H7 x! Y4 a( k% B7 @
            print IPA2 "$_";
      }妖城在线论坛5 E# r( Y0 y6 O9 \3 O& _
      $line++;
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. d: c- [, A5 K/ I0 T
close(IPA1);
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");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;, v) a7 C( Z' I% G* j
while(<IPB1>)
{bbs.mocwww.com1 q# t& p) N% S, L( i
      @item=split(/:/,$_);bbs.mocwww.com+ T% x2 V4 b  l4 ^/ y
      if($line<=2)bbs.mocwww.com8 q1 f) e" n8 P. \' b  E# ]
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; l: k4 X3 t! ~) q$ q: Y- b
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";  s0 Z- U: V0 {1 ], t% h; H: Q
      }
      else
      {
            print IPB2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流) n, a; v! r! a$ o! L+ R5 S
      $line++;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! u( p( y' W' x
}
close(IPB1);
close(IPB2);3 ~. M8 O5 k' P: |" k$ H) F
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ a5 s; s8 o4 W% F9 A
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";妖城在线论坛4 h9 f! ~+ S3 |4 w' f
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");妖城在线论坛0 A; U( \/ Y6 `2 `+ a9 [% E! d
$line=1;
while(<IPC1>)妖城在线论坛) l4 r5 T3 {# ^; n. h
{
      @item=split(/:/,$_);魔力私服,最新魔力宝贝私服技术交流- H) q- B2 c" H" N  A; x
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }妖城在线论坛( Y2 f& j7 v2 ~( C+ p* Q% T
      else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( @7 m4 f7 A( S4 C! H
      {
            print IPC2 "$_";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. K5 w7 f( _; v7 }1 n0 D! X" U
      $line++;妖城在线论坛5 M( o- z8 m& t
}魔力私服,最新魔力宝贝私服技术交流5 U* S$ c2 @1 L1 Y
close(IPC1);
close(IPC2);

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