打印

对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，并上传至服务器某目录下魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" p+ q. a1 C( v* ~9 s  O7 R) w" `. I
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! h7 |. M: z6 F$ u: R
前提条件：
1. 服务器上安装了perl程序) [( N/ D8 c) z# E4 @2 K
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：
#!/usr/bin/perl魔力私服,最新魔力宝贝私服技术交流3 m" c- m- T) k' ^) d  @
魔力私服,最新魔力宝贝私服技术交流' V: Z9 p/ M5 l2 E
print "Please input the new IP:";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% G3 `/ G/ e  Y0 m. y8 |" w4 ]
$input=<STDIN>;
chop($input);

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 n; E8 v1 R7 g: u4 H. o
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! A0 \# u/ T; `; ?: D* |  y
while(<IPA1>)
{
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力宝贝私服技术交流% {0 ?3 S: w% Y6 V# n: D
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ y5 g. P4 G0 K; e
      }
      else魔力私服,最新魔力宝贝私服技术交流9 u& t6 I: W6 T' k- J- Q* W2 M- E
      {
            print IPA2 "$_";妖城在线论坛4 G9 R9 a8 v, O" o# F: K
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 _2 |: E& o" P% \
      $line++;
}魔力私服,最新魔力宝贝私服技术交流7 Y( D: [& i5 `+ q0 ~+ x
close(IPA1);魔力私服,最新魔力宝贝私服技术交流# @- Y$ w1 E$ G4 E' @. M
close(IPA2);魔力私服,最新魔力宝贝私服技术交流- v: h  s% t# G0 d

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 n" v! {+ o0 K
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 K0 n& a8 `( q. w3 u& F& d7 V
while(<IPB1>)
{
      @item=split(/:/,$_);
      if($line<=2)
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" ~  A, `1 Y* X8 z
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else妖城在线论坛* H% c3 h8 i# ]$ B9 Z( r
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 k9 n: Y, G3 t" v" Q5 h
            print IPB2 "$_";
      }
      $line++;
}妖城在线论坛* A! l; O7 I. E2 M) k
close(IPB1);魔力私服,最新魔力宝贝私服技术交流/ a; I! L3 E8 r& `
close(IPB2);
妖城在线论坛- G0 u$ p# v& w. y9 \. R5 }
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");妖城在线论坛" b1 h' b( g" K# k$ }
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;
while(<IPC1>)
{
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {
            print IPC2 "$_";
      }
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 l/ {% C" @- l( P  u% U) I
}/ Q4 L8 K) Z$ m$ f( E" _' C) a
close(IPC1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. ^% g3 F% N6 w1 m9 x0 v
close(IPC2);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( \  r# N1 z# C' l# d, D

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