打印

对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编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* t6 S/ c2 _5 e" N- v# K( N4 A! R

执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：妖城在线论坛1 w7 ~% a3 z6 H$ l+ ^  H: _
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。* d$ \  U- ^, t/ b! N
0 ]; ~/ H& B8 g' n" ^3 t6 H% Z
代码如下：# l% y$ G3 S. ^1 H8 t3 R% ?5 F
#!/usr/bin/perl妖城在线论坛: w: `/ z" q5 g3 E# f% E
$ p1 \0 [- T7 x( p6 R" v% z
print "Please input the new IP:";9 D3 P6 W4 f: T1 _1 e/ U) n, Z( m
$input=<STDIN>;, F+ ?1 Q& ?6 L9 o  q( e
chop($input);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" o4 p! y( b9 ]7 b8 U
bbs.mocwww.com% r- w% f; r0 H5 C8 z% Q: [
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");妖城在线论坛( z" O0 t# v4 v5 U( |. K- ]3 c
$line=1;
while(<IPA1>)魔力私服,最新魔力宝贝私服技术交流+ D) ?$ E  Q0 A. l+ C( W
{
      @item=split(/:/,$_);魔力私服,最新魔力宝贝私服技术交流5 ^9 Q& ~2 u* r% M( |; U8 ~/ N  h) `, ?
      if($line<=2)bbs.mocwww.com8 e. g0 f* {0 E* `, K2 \4 y2 k# ^
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' Y! \" h' W1 |1 K9 H) |+ R
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! L9 x7 g2 s  T7 z2 G( B* s% O5 [
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) d4 J2 f6 T* \) W0 J4 _( T& y
      else
      {
            print IPA2 "$_";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 i+ L$ x# g% E, P2 g9 E
      $line++;
}
close(IPA1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) P7 i3 m5 V+ G, P
close(IPA2);魔力私服,最新魔力宝贝私服技术交流, b0 A9 z  i8 S1 a! `+ `3 @9 D

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";bbs.mocwww.com5 S9 k% t: ~2 D; m# i6 I
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;妖城在线论坛( u  V; G5 c0 @' G3 Z/ b( l3 E
while(<IPB1>)魔力私服,最新魔力宝贝私服技术交流: ~5 X* B3 }+ w: r  p0 u2 y% z
{& r6 l5 d; a; x
      @item=split(/:/,$_);
      if($line<=2)妖城在线论坛4 _# {" o& o$ w8 B
      {bbs.mocwww.com9 E. V0 o$ c9 x# b( _
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {* t8 ]; C& z3 t% v$ c. ]
            print IPB2 "$_";bbs.mocwww.com& [- {/ A5 V/ D. p3 r5 g4 [3 I
      }
      $line++;
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 D* ^. H; H( N9 r- t3 W2 f
close(IPB1);
close(IPB2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! \# h. s* M- S  F! Y8 G& i" K
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# E# ~' d% v; ~6 f. M  V
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;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; G; `% H0 D! H/ P
while(<IPC1>)
{
      @item=split(/:/,$_);
      if($line<=2)
      {魔力私服,最新魔力宝贝私服技术交流5 `6 @# [: t6 X
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";bbs.mocwww.com* U3 j, n. P, m# w& \
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  s& v1 R! Y- Y: @1 t; C
      else妖城在线论坛6 m. k. M: i8 ~8 K
      {
            print IPC2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ x, a) H4 ?9 Z4 n
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ X/ ]# N/ S  P, I, _% b
      $line++;
}
close(IPC1);
close(IPC2);
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" k. b2 ~; f( |
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]