打印

对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程序，以简化手工操作。

执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. K5 j- _' r+ @) E" e
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。bbs.mocwww.com% W) r+ ^0 ?! ?6 R) ?
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- ~% _% z" ^9 `
前提条件：
1. 服务器上安装了perl程序魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- T3 ?' e7 b7 Q1 i
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。  W  n. |9 M- d. D% V1 x1 Y& a! \" d
妖城在线论坛- a' m  t( G/ N
代码如下：
#!/usr/bin/perl
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" [1 u, p4 L) _  w% N6 J
print "Please input the new IP:";
$input=<STDIN>;
chop($input);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 F5 r9 Y, p, z! E; F8 G8 p' i

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 a# A6 |! H! v
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");bbs.mocwww.com. L/ k+ q3 [% x* R' X
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;魔力私服,最新魔力宝贝私服技术交流4 _' ?, N8 u7 n) u3 U+ {
while(<IPA1>)
{魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ z# X, n* {1 ~
      @item=split(/:/,$_);妖城在线论坛6 @5 t; }. I7 G) u6 o" _9 T
      if($line<=2)
      {妖城在线论坛( A3 w. p, J7 o& g
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";  t* e) [& h: g  L$ C9 M$ ?
      }
      else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. A1 Q) Q6 P) T- o
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. G+ d+ V: _3 G1 K
            print IPA2 "$_";妖城在线论坛0 Z! l) l& f3 S. m& w1 T$ C
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ x1 W5 C5 }  q4 H
      $line++;
}魔力私服,最新魔力宝贝私服技术交流2 q$ Q- U, H( E- m6 m& Q6 D
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");妖城在线论坛/ F5 f) X! K8 M8 Y: ~! R
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;妖城在线论坛/ _$ k7 I( c& i; w# x+ Q" o+ A. ?
while(<IPB1>)
{魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ }. w2 f0 I% I  q+ L5 o
      @item=split(/:/,$_);2 f8 s% M  \. F' x
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- {/ g" y4 \9 W. V$ A9 M
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 n2 d3 M4 m/ ~7 b- i
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力宝贝私服技术交流8 D* v  M1 |8 l# t# N. P  x- A
      }
      elsebbs.mocwww.com* K4 w1 \" l+ o& ^( I) O6 Z. D
      {; o4 ~$ @" h4 n9 r# t+ P
            print IPB2 "$_";bbs.mocwww.com5 J! c8 b: r2 z" k+ s' o
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 l) i4 q+ b* K8 h
      $line++;bbs.mocwww.com2 J/ Q* m2 n# w. ]$ {
}9 \7 Q3 F$ i. E& m( c, [* J
close(IPB1);
close(IPB2);

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! \! g2 I+ U; J6 x  F' L
open(IPC1,"/var/www/html/Update/info.txt.bak");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 {2 z1 Z, T6 z2 b$ q' v
open(IPC2,"> /var/www/html/Update/info.txt");bbs.mocwww.com, |1 P2 |4 a" ~
$line=1;
while(<IPC1>)魔力私服,最新魔力宝贝私服技术交流5 x$ a% o( T( `7 N& u; W6 X
{
      @item=split(/:/,$_);
      if($line<=2)9 }: d0 R4 Q! f( Q/ ]" V
      {8 ^" d/ p+ Q6 }' Y" h
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";8 l5 W) W, |5 P
      }
      else
      {
            print IPC2 "$_";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 e8 l, `. T) w+ v4 t, p
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, W: c5 [/ }+ Q2 [, w
}
close(IPC1);bbs.mocwww.com% P3 j/ A1 u/ L1 L6 \
close(IPC2);
bbs.mocwww.com9 [2 Z7 @- [! o; z7 R
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]