打印

对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程序，以简化手工操作。bbs.mocwww.com, Z* @  [5 l4 q
魔力私服,最新魔力宝贝私服技术交流( T5 L) A5 e- B1 P  ?6 \
执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下bbs.mocwww.com7 K5 \- E) A% X5 s3 L# ]
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& z$ k6 F7 _( T$ Y( s
前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：
#!/usr/bin/perl魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 W5 A7 w+ r/ P2 Z
bbs.mocwww.com6 u* I* h$ t! m/ ~2 }, Q1 N
print "Please input the new IP:";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ j& Y% }. f: Y6 X# I6 I9 R
$input=<STDIN>;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! v1 a  f3 G; b( V$ Q
chop($input);

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";魔力私服,最新魔力宝贝私服技术交流" ~, }% `! L3 k8 T; k( v
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 _/ C) D7 p* J/ u
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;
while(<IPA1>)1 `$ j  K- w: H3 [: i% }% W
{妖城在线论坛/ p0 P! U: O- D
      @item=split(/:/,$_);
      if($line<=2)
      {6 f5 o" ~0 q& V8 I
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力宝贝私服技术交流: M5 O! l% v! m3 p) O' x
      elsebbs.mocwww.com/ ]# @+ ^8 j1 ^
      {0 A1 U( C1 f& b  d: t# M( O! q
            print IPA2 "$_";
      }
      $line++;
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 G; c( P; U( e4 t8 ]9 ^
close(IPA1);
close(IPA2);
bbs.mocwww.com+ S+ I- W" T0 L. f+ h7 X
system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";+ I# I1 `% `) v, Y
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;bbs.mocwww.com# M' a/ o; w1 H/ J+ k' `" H
while(<IPB1>)7 k7 ]  c7 m  ]- G0 }0 F
{
      @item=split(/:/,$_);
      if($line<=2)& _1 @& W( a- O) n3 o/ {0 Y/ Q6 l0 C) K+ s
      {妖城在线论坛- b: p3 ~/ `5 a$ y$ v- @: k
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: M$ V( ~) a2 \
      }
      else魔力私服,最新魔力宝贝私服技术交流2 C3 m% V2 u) h2 \6 G6 Z1 ?
      {
            print IPB2 "$_";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 g1 O( D2 _7 V; f
      }
      $line++;
}
close(IPB1);
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");
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;
while(<IPC1>)
{妖城在线论坛/ Q% r) m4 f: {: ]
      @item=split(/:/,$_);
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 u! r- W# N6 q; E% R
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, Z" I, [# n6 ~( F: c9 _
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛. K9 K% K- E5 j" @# l7 F
      }妖城在线论坛) ]/ d. F! ~2 f( k# `9 W
      else妖城在线论坛# F- z1 T7 q! e
      {bbs.mocwww.com3 j8 y# C7 B( Z/ S$ @' m9 P" s
            print IPC2 "$_";妖城在线论坛+ B  E% `. b9 a+ [- f, e$ }
      }
      $line++;
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% Q1 }- Q, K- L/ g" n3 l8 r
close(IPC1);
close(IPC2);妖城在线论坛( w& D" a$ K! F3 O) H; A. a
% ?3 q8 W1 I& u( j, r- E
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]