对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.com1 r6 P1 @/ R2 u2 I7 u
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. E" q- `" B1 X, [0 ~
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。bbs.mocwww.com& a3 l  u4 w6 e' g$ D/ L

前提条件：魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ ]1 c0 R# C. D: z$ k. s
1. 服务器上安装了perl程序魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# M* f2 O4 G( `0 L) }. I" @
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。bbs.mocwww.com& D1 `" y3 n  C, F( i7 k2 K5 _

代码如下：
#!/usr/bin/perl

print "Please input the new IP:";
$input=<STDIN>;
chop($input);

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 C; {( h/ y2 k" d
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");妖城在线论坛/ ?# C9 G1 Y  p% T
open(IPA2,"> /var/www/html/PUK3/newest.txt");$ o7 s  n2 A2 u! `$ s
$line=1;
while(<IPA1>)
{
      @item=split(/:/,$_);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 s$ S/ Y4 A' I* W
      if($line<=2)
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  Q- t6 }8 Z% ~; D. X4 L: U& p
      }
      else& v" q( y$ _" F3 Y3 H
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 U4 l; q' m4 G5 y2 h
            print IPA2 "$_";
      }, X9 k  Y6 X* A! ^  r2 Q/ W
      $line++;
}
close(IPA1);
close(IPA2);

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) j% T: h, d* G, @* t/ C
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, v# b* [  f# w# k  F' \
$line=1;
while(<IPB1>)
{妖城在线论坛9 f: V) C( ], q9 S
      @item=split(/:/,$_);
      if($line<=2)bbs.mocwww.com* E* P8 w5 I. S0 J0 ^
      {魔力私服,最新魔力宝贝私服技术交流: A" t" h3 c/ r1 z- w4 E
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力宝贝私服技术交流, k& p+ F; k6 l2 ~2 S- o' s
      else妖城在线论坛4 T+ E, J& E- t+ S  n( T' R7 P
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 c/ Y3 x* z: z( V5 q# E
            print IPB2 "$_";7 w' S. s3 v7 a& K# \
      }
      $line++;
}
close(IPB1);
close(IPB2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 k" W( e7 c, ?3 V4 @& [$ F

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";妖城在线论坛3 ^  V$ {, }1 `% Q9 y2 N3 o+ [
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");魔力私服,最新魔力宝贝私服技术交流8 F# T) X, W" _3 n" w
$line=1;
while(<IPC1>)魔力私服,最新魔力宝贝私服技术交流3 x$ R, f6 z; O2 B7 E8 c+ |
{
      @item=split(/:/,$_);
      if($line<=2)
      {妖城在线论坛8 T% e4 r& o$ g% E$ j/ D& ]
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }妖城在线论坛- S- A( M; ]7 n  u7 W3 D+ l: w. G7 f
      else
      {
            print IPC2 "$_";
      }妖城在线论坛% T. ~! O6 R* G! V: N
      $line++;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 E3 v- U. {% k3 u
}
close(IPC1);+ j9 i3 {; e  A/ P1 V8 y
close(IPC2);
魔力私服,最新魔力宝贝私服技术交流3 T' ?# c# g9 `" L! b
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]

TOP

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