打印

对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程序，以简化手工操作。
妖城在线论坛6 R5 k8 S( q, t  c6 ]% J$ v
执行代码：bbs.mocwww.com( @( D& e  n/ a) M$ S. B
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" }- V- w) D7 V. u* k
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 \* l. G, |# l+ f0 r
前提条件：魔力私服,最新魔力宝贝私服技术交流' J" i7 e+ V& @. y9 D8 g) _' j( Y9 V
1. 服务器上安装了perl程序! l7 e- ]- f1 o! z8 c' m
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：
#!/usr/bin/perl

print "Please input the new IP:";
$input=<STDIN>;. e7 Z# ~. L- U$ S2 M& W
chop($input);

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");
$line=1;
while(<IPA1>)
{魔力私服,最新魔力宝贝私服技术交流9 y& a" g" l8 D/ a; e
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力宝贝私服技术交流' d  R+ n4 l8 N! M) L
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛; F" r/ ~8 a2 j  G2 K9 S
      }
      else
      {8 z: `& @5 _! \( Q8 s, t/ p
            print IPA2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流  V0 C( b% x0 P
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 U. ?5 b5 h2 F# d" T3 U
}
close(IPA1);
close(IPA2);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" }, t5 [6 ~/ D& r

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");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 u1 D3 x6 ^/ I' V6 T8 ~
$line=1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 I- L* X# u% A" [
while(<IPB1>)魔力私服,最新魔力宝贝私服技术交流: N$ A& `4 K5 j! |! H; w
{
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 w; Y  z, x" a% o) A1 a9 @
      if($line<=2)
      {bbs.mocwww.com. z+ U. r, G, x! Y4 t+ Z$ {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛, W9 z: p% T" ]. y7 B
      }bbs.mocwww.com, u: }- R# p0 ?" A% |% g
      else
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 [- r" b- S7 Z6 H* g4 L
            print IPB2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流( ]" M2 H8 r3 x; V+ Y# W; m
      $line++;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( w# A/ H+ T7 d
}
close(IPB1);
close(IPB2);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& j' E) w0 }* N4 x$ \, s

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";妖城在线论坛& P/ J$ y4 L% O/ B
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;bbs.mocwww.com# r5 t. Q' Z! [5 H. A% Q5 d. E
while(<IPC1>)
{bbs.mocwww.com# L. _6 M8 D& q( z: U, @* c
      @item=split(/:/,$_);
      if($line<=2)
      {妖城在线论坛3 |2 W% B! g6 P
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";bbs.mocwww.com- a+ `7 p  ?9 u5 S
      }bbs.mocwww.com* ^) N/ O  Q# {) l- c& C
      else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! s) q1 a$ n0 l) L! K. g" U
      {bbs.mocwww.com) d& U0 `; O" l. S- L' W
            print IPC2 "$_";
      }8 x7 k5 E% N7 u6 W" H. z% R7 o. n
      $line++;魔力私服,最新魔力宝贝私服技术交流. _) J2 }6 ]- U8 {7 D2 U0 r; q
}
close(IPC1);
close(IPC2);

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