打印

对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编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 J* J, k- h# a* O& g
执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下5 T" l, x, v. ~- b2 b8 D
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：bbs.mocwww.com1 S3 j: K3 g- M+ _1 ^% J
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 B: X  b& R: V
代码如下：
#!/usr/bin/perl魔力私服,最新魔力宝贝私服技术交流8 K% ]2 ?1 O6 n6 M( g

print "Please input the new IP:";
$input=<STDIN>;妖城在线论坛. w& _7 q. C% e$ F0 H
chop($input);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 N$ _# h* o. q
妖城在线论坛( N. g6 {: A/ [2 @% A
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ g2 a" C! t3 x8 k* N
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");魔力私服,最新魔力宝贝私服技术交流4 L* o7 l' T; f$ \- ]6 F1 `
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;" J3 o# a" @$ T3 o, {
while(<IPA1>)bbs.mocwww.com( G( h/ u0 Z( s$ X2 z
{) R3 ?) n: M  d; S
      @item=split(/:/,$_);
      if($line<=2)/ d6 p5 w9 ]  f0 g1 T/ |0 |
      {魔力私服,最新魔力宝贝私服技术交流" r+ c2 `% G+ L6 |& l
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      elsebbs.mocwww.com9 C2 @" m6 M' Q  i! u
      {
            print IPA2 "$_";! |7 F& w( S5 k% J% a- m( ]2 z9 q: x2 x
      }魔力私服,最新魔力宝贝私服技术交流1 R  E+ Y) X9 f# A. J/ r: c
      $line++;魔力私服,最新魔力宝贝私服技术交流3 P& `9 b5 D4 V2 @% _
}
close(IPA1);
close(IPA2);

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, o/ F- v$ K! l
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");8 G/ Q  y3 G8 w) z% }8 ~# o
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;
while(<IPB1>)魔力私服,最新魔力宝贝私服技术交流/ P: _# m+ f. `$ R
{
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) h& N$ }0 D3 I
      }妖城在线论坛3 J% f( y8 j: C% K3 Y! E) j
      else
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) ~- j9 E4 k* x
            print IPB2 "$_";
      }9 h$ @5 c" o5 W9 t
      $line++;
}
close(IPB1);bbs.mocwww.com" E4 ~( H! a: @' Z7 Z  f( L$ E# D
close(IPB2);

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";魔力私服,最新魔力宝贝私服技术交流2 I& V1 U  ~" N7 X, m* t
open(IPC1,"/var/www/html/Update/info.txt.bak");妖城在线论坛  E8 [9 f* J2 ?; m3 S/ U2 S
open(IPC2,"> /var/www/html/Update/info.txt");4 o9 R  m4 p3 \, d
$line=1;bbs.mocwww.com9 @5 D# H( k: ]8 f1 f
while(<IPC1>)
{
      @item=split(/:/,$_);
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  l# x! G3 c$ h6 s' @
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ }! O  A9 K! Z+ v& S7 ]
      }bbs.mocwww.com6 Q" J- b( M, y4 \. C0 ~' s
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: i. m4 X2 m* R1 T" [! Y! f
      {
            print IPC2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流1 r3 p1 |4 g: ?" E4 `/ V
      $line++;
}
close(IPC1);# h; b2 q; F3 h& a: ]
close(IPC2);
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 v4 ^2 v7 `- F. U
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]