对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程序，以简化手工操作。bbs.mocwww.com- P# q, R0 _8 l' J9 y" `1 Y# C7 Z
妖城在线论坛* S' z! j$ X8 Q* V4 W
执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. |9 ]$ G" @# z5 t
前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：
#!/usr/bin/perl魔力私服,最新魔力宝贝私服技术交流+ o( R# J& m$ I& O) D, `. G5 v$ Y
bbs.mocwww.com6 X7 e: N: a" X& ]2 B0 x
print "Please input the new IP:";
$input=<STDIN>;, O& i$ \" k$ {, h8 p
chop($input);妖城在线论坛# }& [5 O9 I. g- {* t+ g
6 Y: [0 q) z7 Q, e: `9 D& _
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;魔力私服,最新魔力宝贝私服技术交流4 R: a4 w6 j. Z2 T& p
while(<IPA1>)
{
      @item=split(/:/,$_);
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, Z. K% }+ h" O4 |
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛5 s7 p5 `  @. O3 o  I
      }
      else! w" D# b3 v3 U- |+ i/ @9 M
      {
            print IPA2 "$_";魔力私服,最新魔力宝贝私服技术交流0 h/ G+ p! X( c
      }
      $line++;
}
close(IPA1);妖城在线论坛* a4 @. \' `/ h! u
close(IPA2);bbs.mocwww.com6 s! |# n0 }! q5 E! d
; V5 [+ I7 ]7 _2 B! i
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");: ^5 V/ v- g8 j2 S1 ~
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( d% `; {! g: A3 w5 Y# d' G; E1 P
$line=1;妖城在线论坛  V* y& y$ ]3 H8 s! M+ L5 B* `# H/ B
while(<IPB1>)魔力私服,最新魔力宝贝私服技术交流# |' h$ Q+ K! y2 o  g$ z
{
      @item=split(/:/,$_);
      if($line<=2)妖城在线论坛% P" i8 f+ U; k7 ]5 Y4 C4 z
      {bbs.mocwww.com# [- U" y# b' K, f6 D
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' W4 b( @% v9 u) |' P3 E# P
      }
      else
      {
            print IPB2 "$_";魔力私服,最新魔力宝贝私服技术交流/ v/ o' y6 ?( k  U( o  E
      }妖城在线论坛" C2 Q% A; o, k0 j, R2 {* _8 m
      $line++;
}
close(IPB1);妖城在线论坛' S- i+ _4 Z0 t" m4 i
close(IPB2);

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;
while(<IPC1>)魔力私服,最新魔力宝贝私服技术交流9 ], b' Q2 b! ~7 L5 i0 }
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 X" @, x& i: J# h6 R
      @item=split(/:/,$_);* U# Y! _& Y+ f. Q: z& @5 ~
      if($line<=2)
      {bbs.mocwww.com6 ^3 r' @$ a4 I5 [9 A# R8 X
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 n( r9 e2 U+ f8 b4 i
      elsebbs.mocwww.com1 f' T" I& B* p) I3 [" v6 K! `
      {
            print IPC2 "$_";妖城在线论坛, `0 N! g, |5 M8 e! J% Q/ H; f
      }
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 \8 }: u4 ^: N7 O) U
}
close(IPC1);
close(IPC2);

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

TOP

‹‹ 上一主题 | 下一主题 ››