打印

对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编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ }- X# e8 X) ]2 A
执行代码：bbs.mocwww.com  }1 r1 k/ W* B4 N" k7 I* n9 o  Q% \
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下魔力私服,最新魔力宝贝私服技术交流. G& {3 A& q4 e3 h: i
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。妖城在线论坛  [8 G9 r4 H7 q% U2 \8 `1 E$ _  J; M
妖城在线论坛( a- ~: G% p8 b+ W- N
前提条件：魔力私服,最新魔力宝贝私服技术交流5 R8 U+ \5 `# x- d5 R' J
1. 服务器上安装了perl程序妖城在线论坛& K: B' k( O6 f: A  l
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：0 x$ H7 C5 ?7 r6 m8 k, g  A
#!/usr/bin/perl
妖城在线论坛4 J) D9 j+ G0 M7 q7 M+ i4 s
print "Please input the new IP:";
$input=<STDIN>;
chop($input);

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";bbs.mocwww.com9 B4 q+ i# N5 V* t
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;
while(<IPA1>)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( u. ~  {; i1 N, G0 B
{
      @item=split(/:/,$_);
      if($line<=2)
      {bbs.mocwww.com0 N2 S4 O2 d  X! X, k
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力宝贝私服技术交流/ Q% z2 y, ]1 n0 O" K' |3 g
      else
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( j1 X7 t( m. {$ J4 }
            print IPA2 "$_";
      }妖城在线论坛' o% M7 j/ a1 m. F. h
      $line++;bbs.mocwww.com; D) j5 t" i5 c% o
}魔力私服,最新魔力宝贝私服技术交流% w6 K3 q% G1 a; j
close(IPA1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- u. b" O- D+ Q( e5 C
close(IPA2);
妖城在线论坛! R9 M5 }( X5 j
system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";bbs.mocwww.com0 C0 R. A, D* u$ O, ^
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");魔力私服,最新魔力宝贝私服技术交流( E+ H! ]: U6 q0 i/ X
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;bbs.mocwww.com1 r# e2 z8 [- B+ t. ~
while(<IPB1>)
{
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. B0 f3 ]# }: K! F/ X8 J
      if($line<=2)
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }% s; ?+ T# _% K7 }. j- S
      else$ X3 g0 ^% H; x
      {
            print IPB2 "$_";
      }
      $line++;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* {% z: b& x4 d1 T) o# X: r3 H
}
close(IPB1);. `( E; X0 y! y7 q9 d# ]
close(IPB2);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( [, Y7 t( `3 C3 O3 x6 h+ e% C- v( P6 [
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";bbs.mocwww.com6 w% v; S2 G1 ~; Q, w$ Y
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 W% @" U) v3 V7 r. `3 L+ C9 r4 Y
while(<IPC1>)
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 L& \1 a5 X! V
      @item=split(/:/,$_);妖城在线论坛. g' z' _" m8 {" o9 ~) _
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# F( j# t' D  b/ E0 o0 b; @3 V7 |
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 O6 ?* Q% y0 P$ I
      {
            print IPC2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 T6 _' a) z* R! y0 C
      }bbs.mocwww.com, V+ }! U! G0 p/ o/ S$ S1 @. I
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 l9 c# F1 _0 K" X( `. |+ G2 `2 X+ H
}魔力私服,最新魔力宝贝私服技术交流* }0 y. ~* T- p) g2 x* Q, s/ Z: h8 i
close(IPC1);
close(IPC2);
魔力私服,最新魔力宝贝私服技术交流, Z7 C+ K1 U" G/ m% o; @
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]