打印

对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程序，以简化手工操作。
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" |0 k& M- d& _6 U" W. ]4 d
执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
* f( j, z6 j, v
前提条件：魔力私服,最新魔力宝贝私服技术交流( f: i; |: e; y) J8 M
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：妖城在线论坛! s( J2 ^8 k$ ^; F" X: \* i+ t# f) Y
#!/usr/bin/perl' Z. b9 ~0 ~% v$ w

print "Please input the new IP:";
$input=<STDIN>;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) S: `- i% b/ G7 o/ i# X6 ?
chop($input);魔力私服,最新魔力宝贝私服技术交流6 ?8 s, O+ d3 v" ?& ^/ Y7 D

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");bbs.mocwww.com3 U3 Z4 _' p  k  H# @6 [
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;bbs.mocwww.com5 N( X" {# g1 Z/ A; s
while(<IPA1>)
{
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力宝贝私服技术交流) c  B2 o0 P' m! U$ S, D
      {0 V+ S0 y! A/ v! `
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛: \9 D' q1 O% D3 e2 g) m
      }
      else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 X" S4 b. z8 G5 m( W7 N) G9 C
      {魔力私服,最新魔力宝贝私服技术交流- v+ k4 S1 ]9 R5 a- l8 ~
            print IPA2 "$_";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. g1 l- |+ a: v- E
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 h2 t% F% ?  Z. o; `
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; E6 @3 i' ^1 O8 V" t1 D; m0 d0 S
close(IPA1);bbs.mocwww.com- U! u) r4 R  h- i6 s) o& x5 `
close(IPA2);

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";bbs.mocwww.com7 |) b* h% E3 g
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 q0 T  k/ L* R8 D3 h3 E6 E0 s
while(<IPB1>)
{bbs.mocwww.com+ M: B3 H4 v4 P
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 ^% i+ C( T, `$ _
      if($line<=2)! p; k, @' B; h0 `4 ]
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# j$ q, x: v% m, o# F$ @
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 W9 [, M2 g/ e6 W4 e
      else
      {
            print IPB2 "$_";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' |  ^/ s- a- i- }+ ]9 |
      $line++;
}
close(IPB1);bbs.mocwww.com" q& z9 ]: _3 b7 k' H' Q* i
close(IPB2);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" g" V. x) m/ h7 T% M  @# t
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");妖城在线论坛( i& Z* x; Y) c3 \
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;
while(<IPC1>)bbs.mocwww.com: ?' X* n& e) P
{
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力宝贝私服技术交流! v- ^% T( c' w, n) k
      {8 L1 z$ q3 M$ U% G5 i+ g! M
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* m4 t/ h) E9 V- W6 _5 o
      else魔力私服,最新魔力宝贝私服技术交流  Q; n0 ~! D* J1 F0 c/ N9 e
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; `0 Z3 A! W; R
            print IPC2 "$_";) N1 r2 H* P" A6 u4 R
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 _* y8 s1 K4 `9 E6 p% L. d, }- a
      $line++;魔力私服,最新魔力宝贝私服技术交流6 W- P2 o4 Z* n, S, L
}
close(IPC1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) `5 a8 T+ V' \6 O. N
close(IPC2);

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