打印

对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程序，以简化手工操作。
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% V  @0 H' P* j/ [" B
执行代码：—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& E3 V/ g6 k4 e; c
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。4 P5 x/ D- w' z; J1 g7 o4 N
bbs.mocwww.com0 i6 y4 H  U4 G
前提条件：妖城在线论坛. d  f, L/ F8 s! E$ P
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。bbs.mocwww.com: j8 W1 d2 W# G6 J8 y
妖城在线论坛; f# b. ?1 d: Z  w% d* K& I
代码如下：
#!/usr/bin/perl
/ V9 o" N0 `5 |0 \; g
print "Please input the new IP:";
$input=<STDIN>;
chop($input);bbs.mocwww.com' V. O) }+ ^4 e' Z5 {
: B- q9 {4 G7 P1 T/ l  {9 `7 g
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");妖城在线论坛* Z5 v6 ]+ w9 Z/ K3 Z
$line=1;
while(<IPA1>)# P# j% o# G( `+ N* M) o3 K* E
{bbs.mocwww.com! Y" y: q& J: _+ F( ~- \2 Y
      @item=split(/:/,$_);妖城在线论坛; w/ P0 Q  c% T6 a
      if($line<=2)
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";/ P1 v8 r* g; I/ h8 p; L
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( Q8 N# H: n5 J8 k
      else
      {
            print IPA2 "$_";
      }
      $line++;# N, O, {) c- h. C- K' R
}魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ ]+ c2 G) w' H  e
close(IPA1);
close(IPA2);
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* X. {: F& K) U
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");
$line=1;
while(<IPB1>)
{
      @item=split(/:/,$_);
      if($line<=2)
      {bbs.mocwww.com+ ?1 q5 [8 s, ~7 R) ]' w
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力宝贝私服技术交流$ o) R' ]/ y8 I& ?
      }
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  n, A! A+ k' [& X- M- s
      {魔力私服,最新魔力宝贝私服技术交流3 f5 E# |4 J* g' F& e" f0 X) \, {5 E- I
            print IPB2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 x( e& Y: B! Z5 I
      }7 y& r4 ^1 r  C9 N: |- k! z
      $line++;
}
close(IPB1);
close(IPB2);妖城在线论坛8 H9 @3 m% R, L3 e
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 v0 t( J1 Y0 `  O% L
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");& j# z8 n! c7 Z3 N
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;
while(<IPC1>)妖城在线论坛0 A# R/ H, A: |: D$ ?
{" E% o; l' y! C
      @item=split(/:/,$_);
      if($line<=2)bbs.mocwww.com( X0 Q% C5 I4 x& W+ [3 [8 U
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力宝贝私服技术交流4 N" l, {; o* T' q
      else
      {妖城在线论坛" O9 m- Q8 \- q, I( L2 d6 o
            print IPC2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流7 Z7 A/ n% t! R" L8 D9 G2 d, M
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ P" W; E7 F- p# E# w2 ]
}
close(IPC1);
close(IPC2);

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