对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.com0 W! J/ K5 Z2 E. a

执行代码：魔力私服,最新魔力宝贝私服技术交流7 v; P: Q5 P- A0 B, g8 K8 u' n0 _
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 d+ z. h; O* _" I. z; Q9 X
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。魔力私服,最新魔力宝贝私服技术交流- r7 [- v, i2 s8 r9 W0 O
+ y; s6 q1 G1 g& F, e
代码如下：—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 T+ e; ]( P' U' }
#!/usr/bin/perlbbs.mocwww.com# b0 c8 ^: o) G: R4 o3 U* _3 n
bbs.mocwww.com! i2 M9 W- h/ y3 ?! J6 ?/ v6 d9 U6 |
print "Please input the new IP:";
$input=<STDIN>;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* R$ y+ }. O0 H2 |- _. k% Z
chop($input);妖城在线论坛" d1 ]: H* C. O; C/ g
bbs.mocwww.com  G% {, ~4 J$ ~9 A% G( H
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 l' |& l: e" ^, ]6 {0 a+ s
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");魔力私服,最新魔力宝贝私服技术交流! z- m' D" E0 A; z
$line=1;
while(<IPA1>)
{
      @item=split(/:/,$_);
      if($line<=2)bbs.mocwww.com1 f; i* T% b& C4 T( X" p
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ H( v7 O$ {) X- F1 t
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- H! K0 ?! ]( H* L9 \$ Z
      {
            print IPA2 "$_";
      }bbs.mocwww.com7 |, t# a0 A& I7 d
      $line++;
}
close(IPA1);
close(IPA2);魔力私服,最新魔力宝贝私服技术交流0 J/ s; X. r$ i: m/ W% ]0 b
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 X$ C# A. D6 O6 I( W
system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";bbs.mocwww.com# U' t2 B: B$ m& u
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;
while(<IPB1>)
{bbs.mocwww.com% X% K- O  ]' F& b; G2 ^. x
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }
      elsebbs.mocwww.com( h) g5 q' m0 e9 D- ^0 t+ Z' o- ^
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# j( u! ^  m* z. F1 O& B% p3 ^
            print IPB2 "$_";2 m& k# D' _: r0 B4 s
      }
      $line++;
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 x! ~; Y  O  W
close(IPB1);
close(IPB2);
bbs.mocwww.com: C7 V& _/ x: Z/ x' x3 A. C3 p
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";bbs.mocwww.com: Q! I/ D! E& D( t0 e
open(IPC1,"/var/www/html/Update/info.txt.bak");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; r2 l6 ?+ s9 v" L0 P, P( |9 D* h
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;
while(<IPC1>)魔力私服,最新魔力宝贝私服技术交流: ^+ ?8 F1 B7 y; a# `
{2 ]; u1 n! V2 W- R3 s, f0 c
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 [7 S: Q. l/ B( a6 }
      else
      {bbs.mocwww.com3 {- l& U6 ]% J! V3 d
            print IPC2 "$_";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, H5 v) \! ~: E. a
      $line++;bbs.mocwww.com% c5 Z; }; t7 {
}
close(IPC1);
close(IPC2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& {0 H, P# s8 T2 n6 o/ w4 Z+ m, [
9 z) v, D, U$ s7 }3 j" f
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]

TOP

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