打印

对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.com4 A% E5 Z7 N9 E  x8 |; j
2 `$ [9 x  ?9 E' e/ I2 a& ]4 r
执行代码：—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' X7 ^( \  p' s; f9 m
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
3 F3 E' h: K; `  _
前提条件：
1. 服务器上安装了perl程序bbs.mocwww.com  O' ^2 N6 T- p3 |
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。bbs.mocwww.com& l' v! k; @* T; f- I

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

print "Please input the new IP:";
$input=<STDIN>;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) B- S3 l6 A* \3 p! D- s
chop($input);

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";魔力私服,最新魔力宝贝私服技术交流0 X% ]4 x% W& E. z( \' z* @3 M- P
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;
while(<IPA1>)
{$ ^) E+ a6 Z- K
      @item=split(/:/,$_);1 B# [- ?2 z5 j! e5 ~, E
      if($line<=2)
      {妖城在线论坛  m' E. W2 v: a4 \& g% S) r
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {魔力私服,最新魔力宝贝私服技术交流+ P7 ~$ a3 j% l+ W8 k# x
            print IPA2 "$_";
      }
      $line++;
}bbs.mocwww.com8 e7 M3 P- \) c6 a5 g/ Z3 t% ]
close(IPA1);
close(IPA2);bbs.mocwww.com8 m- U2 O. d3 ~, ^/ e

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,电影,黑客,网络,网吧,破解,入侵,注册表$ B6 h0 h+ F# q& d
$line=1;
while(<IPB1>)
{bbs.mocwww.com6 d  s$ r+ C4 C
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力宝贝私服技术交流9 e3 H# a. K* b4 l" [* c% G
      {bbs.mocwww.com* q+ L: B7 x8 d1 ~
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) e! d1 ~4 Y" @  ^# {5 s4 W
      {妖城在线论坛2 ]3 W$ z2 h/ @/ a4 v2 J& B
            print IPB2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% F; Z) R& a, b
      }
      $line++;魔力私服,最新魔力宝贝私服技术交流6 K+ f; l  r6 |* q# _4 c, r
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; @) {7 J* ]  O0 f/ h! h* G, ?" M
close(IPB1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 I) b0 D+ T6 K- w9 X% m
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");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 F% `: X; C% d9 u
$line=1;
while(<IPC1>)
{魔力私服,最新魔力宝贝私服技术交流, p" y, l; U& ?; G4 ]5 k
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% V# V  v0 Q. V* ^4 b: X0 E
      if($line<=2)魔力私服,最新魔力宝贝私服技术交流5 z+ p# I$ z- }  O" d$ Z
      {) ~( ?# g% D8 }. Q; |" c
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛  B3 [0 G6 n1 L6 ^3 e3 L
      }妖城在线论坛6 t" S( }8 T+ ~1 _; X2 B
      else
      {
            print IPC2 "$_";魔力私服,最新魔力宝贝私服技术交流4 z0 F8 c- N4 `3 `; v6 f6 r
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- D0 e6 d' s, ?9 L
      $line++;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 m. E8 ^9 X! D  c- @
}
close(IPC1);
close(IPC2);魔力私服,最新魔力宝贝私服技术交流  \: l+ }8 p# x

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