对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程序，以简化手工操作。
" H0 m# ^0 Y" f
执行代码：bbs.mocwww.com" q$ s' F; S3 q- h* F# m: X
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下bbs.mocwww.com0 t. S' s9 o& F% f
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
: p) C% @1 h0 R! Y
前提条件：
1. 服务器上安装了perl程序bbs.mocwww.com9 p. \; I* z  @2 t. u
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：
#!/usr/bin/perl妖城在线论坛' O, M' h5 q" u8 c. u
0 J8 v- C$ L/ B! e
print "Please input the new IP:";
$input=<STDIN>;
chop($input);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, y  L6 m9 Y  j$ y& q5 ~

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");妖城在线论坛7 Y$ [5 Y* {% M5 f! h
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;
while(<IPA1>)
{
      @item=split(/:/,$_);
      if($line<=2)
      {2 {2 W$ I' r% w/ f
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, I9 T( g. E' N7 T" L# P! T+ L1 v
      }
      else
      {
            print IPA2 "$_";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- D! D$ G7 O% k7 b" n
      $line++;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 F) D& {  E! H  j6 ~/ u
}
close(IPA1);
close(IPA2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% ^9 L' p. l7 m

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");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 w+ n/ [( _- V# u& M; x* y) ]9 {
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;魔力私服,最新魔力宝贝私服技术交流: M8 @* y9 W6 A( S2 \  _6 U
while(<IPB1>)
{魔力私服,最新魔力宝贝私服技术交流1 ^$ A! Y8 d# ?4 J9 Q# i
      @item=split(/:/,$_);
      if($line<=2)4 ^7 c) E5 E' d
      {魔力私服,最新魔力宝贝私服技术交流4 U4 ?8 R( W) p- X
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }妖城在线论坛. }( w8 w4 A6 y1 p5 C
      else魔力私服,最新魔力宝贝私服技术交流+ ~* e: ~2 m+ z- T' Q
      {
            print IPB2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 l1 f- w$ C, V5 e  S
      }妖城在线论坛2 R$ u. [4 F, V& u( p$ O. f
      $line++;魔力私服,最新魔力宝贝私服技术交流4 n' |( P8 u4 A$ b
}
close(IPB1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* O7 \. R8 v# z" y
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>)bbs.mocwww.com' F- i* \' u8 p
{bbs.mocwww.com4 }  d; G! Z' K
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* ~/ m& h) V) C: o( Z
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 {) f5 ~9 N/ G# p+ R2 U
      {bbs.mocwww.com2 m4 J. A4 b3 X" a6 G
            print IPC2 "$_";bbs.mocwww.com* m, ?- X6 |. F+ Y) v, l6 T
      }
      $line++;
}
close(IPC1);魔力私服,最新魔力宝贝私服技术交流$ X9 e5 p8 h6 X9 `( m" _, i% T
close(IPC2);妖城在线论坛. O) q9 G1 {* d" `, ?+ Q$ J

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

TOP

‹‹ 上一主题 | 下一主题 ››