打印

对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程序，以简化手工操作。
% Y% J8 P# C( P& K6 _: z
执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 S) {. G# L$ m0 ~/ g/ `- f' w
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( D! i9 m3 u! o6 \3 `4 K0 {4 V$ S
代码如下：魔力私服,最新魔力宝贝私服技术交流8 S# W' E# C4 |3 [
#!/usr/bin/perlbbs.mocwww.com: ~  d7 e. p- o$ f2 {

print "Please input the new IP:";bbs.mocwww.com( Z+ P* @' O8 e. |7 [: _
$input=<STDIN>;魔力私服,最新魔力宝贝私服技术交流6 _- }( ?& U# V% r- P
chop($input);# {% U! P$ i! j0 f! L
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 B! U/ }' M/ s% c
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";% v2 K/ x3 @6 h+ b  V: k7 W8 @, H) C
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");bbs.mocwww.com6 g' ~3 ]: N+ J! e" o6 r- x
open(IPA2,"> /var/www/html/PUK3/newest.txt");1 \# B1 X( q# r' s: q
$line=1;妖城在线论坛" a" L' i# `/ [
while(<IPA1>)魔力私服,最新魔力宝贝私服技术交流7 }9 T4 C; ]" h" Q
{
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 [* i# e! t5 G5 G/ [+ ], B1 C: D6 e
      {魔力私服,最新魔力宝贝私服技术交流3 q* d. _+ Q* {1 Q
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! a8 O. f  `  ^; ~4 O
      }
      else* j1 Y. s$ V4 V8 c4 @. h
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! F$ \+ U0 D9 n; p# j  f0 x
            print IPA2 "$_";
      }
      $line++;妖城在线论坛6 c/ ?" E4 Y0 B9 Y1 x" n' Q
}bbs.mocwww.com9 R0 k; ]4 n3 t2 J" x
close(IPA1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* j) |9 j, z  H& e  w$ k( `" e
close(IPA2);
妖城在线论坛, j, E3 I1 _  B' N6 h& g
system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 d0 l( L& [% l4 a! M
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");妖城在线论坛9 n' Z; D0 {0 ^- d2 \& X3 ]
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' w, U  @- I) {7 w4 ?& e- w
while(<IPB1>)
{
      @item=split(/:/,$_);
      if($line<=2)
      {2 D& h% ^) M: c% q! B, n
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛9 E. @) j# h, n. ?" c& W: u* B% }
      }7 }0 E1 ~/ F) y3 r* R& G4 y
      elsebbs.mocwww.com: N2 e% X* L7 m2 |3 q# Y
      {
            print IPB2 "$_";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* {& _6 g% L2 ]$ M) _, R
      $line++;
}
close(IPB1);妖城在线论坛6 o) n6 Z# }0 E' D- ?
close(IPB2);- Z; d7 N: g2 |( l5 s( U& g
* c- z- t* M( x3 s, G. U7 N6 d
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! G+ u$ o8 Y$ L2 e9 `6 Y( A
open(IPC2,"> /var/www/html/Update/info.txt");% U  ~" B9 L2 W
$line=1;魔力私服,最新魔力宝贝私服技术交流; n7 p2 ]# C4 Q" o% j' p
while(<IPC1>)bbs.mocwww.com% |! x. l. T" w1 y5 M
{
      @item=split(/:/,$_);妖城在线论坛/ O. m1 V7 E6 [
      if($line<=2)
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; Y6 i; i1 T$ p$ `. S
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 B2 e' ?( H0 r6 f$ |) N& o
      else# a# x; Y4 D# b( ^' e5 b
      {
            print IPC2 "$_";魔力私服,最新魔力宝贝私服技术交流% h6 v# E/ N$ _5 [- F- T$ A
      }魔力私服,最新魔力宝贝私服技术交流6 @8 L/ y  t2 S  D: T3 O
      $line++;
}
close(IPC1);魔力私服,最新魔力宝贝私服技术交流/ G. s: p' X! E9 I
close(IPC2);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 I  r$ B. G: {# x" s0 d
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]