打印

对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编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ T5 @8 w5 ?) X
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：bbs.mocwww.com$ I/ S* r% U# i1 l/ T$ d5 P8 N
1. 服务器上安装了perl程序—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 {/ G* ~- N2 H) W7 C. H9 J
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- A9 M2 \% K, q9 _
#!/usr/bin/perl—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 T3 y- O. Q% V- [
bbs.mocwww.com8 |* u/ t/ f! r- _+ m, h: I/ S
print "Please input the new IP:";bbs.mocwww.com/ R2 B8 m; m! I9 o8 |! c* O! I1 J
$input=<STDIN>;魔力私服,最新魔力宝贝私服技术交流! c) S5 b3 u9 i; Z. V6 ~' @, b
chop($input);
魔力私服,最新魔力宝贝私服技术交流" j) k+ u; ^+ ^
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");* M, V2 F( b$ T9 U, }
$line=1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; A" a& m0 z" v1 C: C
while(<IPA1>)bbs.mocwww.com7 F; v5 w( R3 D
{
      @item=split(/:/,$_);妖城在线论坛+ f: d: v( g( B+ P" h0 Y
      if($line<=2)
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";) \- t; T" J! ~" Z) _% b1 T
      }
      else
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ @( `. J! T+ r5 [* D
            print IPA2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 i, @$ [7 c4 R
      }4 v5 B6 P) u9 U% ]/ J
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 Q7 B9 U) u: k: e7 X1 w- x
}bbs.mocwww.com$ w. K  a) N% b4 P' Z/ z; ]
close(IPA1);
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");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");妖城在线论坛. F+ u4 u; v3 ^$ I/ A3 W# B
$line=1;& X0 I9 O1 H+ z: q7 M5 E( B
while(<IPB1>)妖城在线论坛* i* ]  F4 w3 @- v9 e
{
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 x/ c/ l2 Y. c+ m
      if($line<=2)
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 i: q& ~% R% \9 V7 z
      }
      else
      {
            print IPB2 "$_";魔力私服,最新魔力宝贝私服技术交流% ~$ g% c7 l! _( O3 k& E
      }妖城在线论坛& y% u! {5 z# b5 P9 ^  g. B
      $line++;
}
close(IPB1);
close(IPB2);
魔力私服,最新魔力宝贝私服技术交流! L- n2 J5 ~# \; I
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");妖城在线论坛: A( M& }! F8 E/ h% S, ^
open(IPC2,"> /var/www/html/Update/info.txt");魔力私服,最新魔力宝贝私服技术交流- L. P% P& H$ E
$line=1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 u, G# @5 s: B
while(<IPC1>)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# O& D% H/ z3 p$ e1 ^
{
      @item=split(/:/,$_);bbs.mocwww.com& J' _) Y" [" ]* ]7 g- r
      if($line<=2)
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 C( x& t% G; J3 u
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ c, c0 g3 l* B# z1 E
      }
      else
      {5 q" t& {  G  t7 a
            print IPC2 "$_";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! ~3 b& f7 q/ j: a9 |1 P
      $line++;
}
close(IPC1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 @+ t4 c) L- N! ^
close(IPC2);bbs.mocwww.com8 a# V+ U- I. ^: L$ [9 f9 W# m: n; k- [) C

[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]