打印

对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.com- _9 v- d4 M9 N8 F7 E; g3 H
执行代码：8 k( q" T# r/ {& P
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。bbs.mocwww.com1 i# d+ Z$ b! i* C2 `1 O) o

前提条件：bbs.mocwww.com+ e3 g6 G  G7 J6 ?. g- a
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。妖城在线论坛, j4 a9 Y# P; B8 h
妖城在线论坛9 V* u3 }: h, w, Z
代码如下：
#!/usr/bin/perl魔力私服,最新魔力宝贝私服技术交流$ {& q  b( N/ H

print "Please input the new IP:";4 B- n8 W0 w5 ?/ v9 I
$input=<STDIN>;
chop($input);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: ]$ Q+ t7 j# h0 s* y9 ^; U) i0 {

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";% K# X& D2 ?9 ^& d/ B1 `, R; T
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");魔力私服,最新魔力宝贝私服技术交流% M( i9 b2 X0 n* N1 H7 W
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; ]/ h" D' B# o8 z* d  V
while(<IPA1>)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ o9 E, g! [# R
{
      @item=split(/:/,$_);魔力私服,最新魔力宝贝私服技术交流8 L4 }, Z/ o3 M4 g% P
      if($line<=2)
      {bbs.mocwww.com# m# l  m/ H; w* L1 q$ h, W) v
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛$ q7 [( x' {, Q) R1 j0 Y
      }
      else
      {魔力私服,最新魔力宝贝私服技术交流7 F2 q+ E7 L- ~5 K! `$ N3 S# |0 P
            print IPA2 "$_";
      }
      $line++;魔力私服,最新魔力宝贝私服技术交流. i# \; U/ E3 J4 Y% m
}bbs.mocwww.com4 }+ ]6 f- X7 r, v7 p; n
close(IPA1);
close(IPA2);妖城在线论坛) o# s* P  |3 O1 S! {* R9 w

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";妖城在线论坛9 n  b. {. W0 v! A  P+ j0 ^$ w/ G* B
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 \. k7 y6 t0 ^- Q0 C
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");妖城在线论坛/ @7 ?2 O; }7 E* t8 {% ~
$line=1;
while(<IPB1>)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 f: u- k" F- K  E' y+ m
{魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 @' c+ `  B" c# n+ Q: {, B6 A
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. A- |+ K. F7 M( @& v7 L, c4 f
      if($line<=2)
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {魔力私服,最新魔力宝贝私服技术交流- V. R7 ?  g% \' K2 K; o6 k4 u
            print IPB2 "$_";bbs.mocwww.com  Z! c& d* _. P! F# k- X
      }bbs.mocwww.com1 ?8 n+ ^/ W! Q, W, h. ?
      $line++;妖城在线论坛# u. X$ L' D5 A% f9 x5 o/ S: |
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& N" \! Z% [& d3 S3 Y) H
close(IPB1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  A3 M4 u$ n! T2 C
close(IPB2);) ~) h5 P, B7 z$ k
9 Z) @; H8 u) U, J
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 G* {* A* d5 P# U; T: r
open(IPC2,"> /var/www/html/Update/info.txt");妖城在线论坛$ ?5 g: D- _4 J  G' N) B  u3 K
$line=1;bbs.mocwww.com; ]0 g. X! ~/ k. k" e
while(<IPC1>)
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. b1 n0 A9 R- {8 R; c1 Z
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {妖城在线论坛6 l" ?5 F/ }9 [$ Y6 D
            print IPC2 "$_";
      }
      $line++;妖城在线论坛3 w- |) [, U2 m! N  T9 W
}
close(IPC1);
close(IPC2);

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