打印

对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程序，以简化手工操作。6 [4 Q" {4 }) Y9 }4 U6 i
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, f: h, ~3 \1 ~$ Y$ `
执行代码：魔力私服,最新魔力宝贝私服技术交流1 l# s3 g3 P& m$ L+ W
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下妖城在线论坛0 g$ R; W6 m# b& @- K, o5 O% N+ G) U
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。bbs.mocwww.com3 n6 D+ ~  l+ |4 O2 ]$ B. c; H9 u
7 s0 r4 y5 \1 x+ T/ l
前提条件：魔力私服,最新魔力宝贝私服技术交流  _4 o! z2 H1 f
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。
bbs.mocwww.com/ c( v; n2 ]; N+ H4 e! H% E3 @
代码如下：
#!/usr/bin/perl

print "Please input the new IP:";魔力私服,最新魔力宝贝私服技术交流$ X( K0 x5 q" s8 y+ H
$input=<STDIN>;
chop($input);妖城在线论坛1 ^/ n7 w: x- f* C1 k4 P4 z
魔力私服,最新魔力宝贝私服技术交流4 S5 }$ \* R$ h$ r* [
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");
$line=1;
while(<IPA1>)
{bbs.mocwww.com5 T' |$ }3 l$ ?" n3 ?6 }( M6 e
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {
            print IPA2 "$_";
      }
      $line++;bbs.mocwww.com3 k5 l& E. f9 T2 U+ H3 w9 ~
}
close(IPA1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ L' ]* B5 _9 A" _' v" p; W
close(IPA2);

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");妖城在线论坛$ J9 @) Z$ C' H' \3 g4 e
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& v% H  |6 W% ]+ n$ E8 H
$line=1;
while(<IPB1>)
{bbs.mocwww.com, O& M8 K/ i) N/ ~
      @item=split(/:/,$_);魔力私服,最新魔力宝贝私服技术交流) I+ I8 R/ L0 y: c8 I8 U2 b  v
      if($line<=2)bbs.mocwww.com# k# H, s# O1 J7 P* `
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛- e" n  j+ [3 W
      }
      else魔力私服,最新魔力宝贝私服技术交流- w4 ^( }4 S5 n- E8 \% x
      {
            print IPB2 "$_";bbs.mocwww.com* C: [0 X  l5 [& @# `
      }妖城在线论坛3 ], M! z" t& d$ d
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 u+ g, V8 i6 p* O6 W* c8 X/ z* F: R
}
close(IPB1);
close(IPB2);

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! X6 h; ~; D: h$ k2 G, }; |' s
open(IPC1,"/var/www/html/Update/info.txt.bak");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# O& ]. T* T+ f0 a  e# X* G1 |
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;
while(<IPC1>)魔力私服,最新魔力宝贝私服技术交流) x5 S4 y- w" E4 k5 P
{
      @item=split(/:/,$_);
      if($line<=2)
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, V2 ?/ f5 C& }
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";/ `8 P7 R% z; h$ w
      }bbs.mocwww.com7 y8 {6 `& ]7 D' R8 H8 p
      else
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 m- K1 i" y: Q; r! [
            print IPC2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流' x! E$ ^3 {" h( c
      $line++;bbs.mocwww.com+ _& S: Y5 R% z( F
}% H( l* J/ e! P3 S+ k$ H
close(IPC1);bbs.mocwww.com: {) b& P. o# T- F8 U
close(IPC2);
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! f( T5 g1 @% K- p
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]