打印

对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程序，以简化手工操作。—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 I7 Z, H0 K/ K) V+ g0 U1 z1 v- A, B

执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下妖城在线论坛' a2 w" \. i  L, `2 n8 P5 D
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) h/ \# k& J- E
1. 服务器上安装了perl程序% Z4 G" m9 c+ \* a" W
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：妖城在线论坛4 _0 D. T& d7 \
#!/usr/bin/perl

print "Please input the new IP:";. u2 P" F7 ^  y+ n* o. n
$input=<STDIN>;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ J8 I) j. v7 _1 |9 y
chop($input);
bbs.mocwww.com. Y5 W" v) w- m7 p" ~! n8 k
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";魔力私服,最新魔力宝贝私服技术交流0 {3 A5 h* K6 c3 k
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* y' l( x* A. r: I
open(IPA2,"> /var/www/html/PUK3/newest.txt");魔力私服,最新魔力宝贝私服技术交流9 c  Y- V4 j) _9 U- K( ~
$line=1;妖城在线论坛: B. S1 ]7 j5 ^' v+ y9 Q
while(<IPA1>)魔力私服,最新魔力宝贝私服技术交流7 X2 B4 H1 |1 b1 b. i+ m
{魔力私服,最新魔力宝贝私服技术交流% p2 E8 a# V9 w, A& Y# ~
      @item=split(/:/,$_);
      if($line<=2)
      {6 x# F  m5 n: r5 j5 }+ R, j
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else, D- n9 N9 J* d! {, X3 T
      {bbs.mocwww.com! r6 K/ n9 n$ f8 S% W
            print IPA2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ W1 M6 W$ }9 c" B
      }魔力私服,最新魔力宝贝私服技术交流8 r/ s; f+ U$ K! S+ e& T
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; a. e9 A7 i6 o4 n; R0 e
}# Y* s0 L4 z# T8 y2 {
close(IPA1);
close(IPA2);

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";妖城在线论坛" _* W$ g9 F5 ~: y" P
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");% u0 \& O9 T7 C8 u0 X
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 D6 S6 P6 h- k6 @& p6 q3 s. E. l
while(<IPB1>)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; X  T5 [' e4 H9 w( n0 j
{魔力私服,最新魔力宝贝私服技术交流% d1 G( B8 }8 c  n/ l1 p
      @item=split(/:/,$_);
      if($line<=2)妖城在线论坛8 P  N7 G5 o& a5 w  s: o
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }妖城在线论坛) g: p* |1 K  y# F
      else魔力私服,最新魔力宝贝私服技术交流1 F/ h+ o, M1 d
      {魔力私服,最新魔力宝贝私服技术交流% B+ F' I4 R1 J7 s
            print IPB2 "$_";
      }
      $line++;
}
close(IPB1);
close(IPB2);

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";妖城在线论坛8 C$ G' b  I0 e+ s6 u8 O
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 F* v9 y, H* Y  S6 r
while(<IPC1>)
{
      @item=split(/:/,$_);, o" U% F5 Z$ j  z
      if($line<=2)妖城在线论坛' f1 [! t! c% O  R( t
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 c8 @9 D# M0 W5 R% G+ E
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力宝贝私服技术交流/ Q4 r' [6 F' ~7 `8 o
      else
      {
            print IPC2 "$_";
      }
      $line++;
}
close(IPC1);
close(IPC2);" @0 K3 s# W: j

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