对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,电影,黑客,网络,网吧,破解,入侵,注册表& q# v# S4 u- P0 W+ J. h$ p& e
执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) H6 B! m+ k2 I- Q! N" a

前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 m3 ~  Q6 c1 s1 m7 E- W$ n' S
代码如下：
#!/usr/bin/perl魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: Q: o# h5 f5 f5 R" D, v$ Y3 d
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' y% d, }  h' d; q, Q/ H9 L4 p' P4 P
print "Please input the new IP:";
$input=<STDIN>;
chop($input);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 P/ C$ l1 o7 w# p2 @

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";魔力私服,最新魔力宝贝私服技术交流4 }1 V; J5 S) m! i
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");妖城在线论坛9 [' p! `6 h9 H1 ]9 r, K+ f' Y
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;bbs.mocwww.com+ `) F8 K. u  B( l
while(<IPA1>)
{
      @item=split(/:/,$_);
      if($line<=2)
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ f6 r9 b) f6 B' e/ r3 U$ f2 c
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }妖城在线论坛$ F4 ^7 p! @+ {+ x$ y0 K2 E
      else
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ S1 q8 f7 i3 `
            print IPA2 "$_";! H4 I7 H2 r  ~$ V, a- Q
      }魔力私服,最新魔力宝贝私服技术交流4 D8 ]' o9 n& F
      $line++;9 ]/ c1 ?1 \* D" q' n
}
close(IPA1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# T/ I4 [7 e7 f# y/ |+ l
close(IPA2);

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";bbs.mocwww.com8 d& @  e& j* H9 m: ]
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- f% e2 p* |7 A3 A
$line=1;
while(<IPB1>)
{
      @item=split(/:/,$_);魔力私服,最新魔力宝贝私服技术交流% o# j2 Q" u# }. a; K
      if($line<=2)妖城在线论坛  i. p* C$ d% L( z& Y
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }妖城在线论坛0 X- G1 B9 X& |5 I! \8 \1 X: u! ?" M5 O
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 x+ Z% q) B1 B
      {
            print IPB2 "$_";bbs.mocwww.com- A+ @: Z, L8 M) i! C: v" J1 n
      }妖城在线论坛! D% [7 G8 y" O, }; {
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& \: i8 f: {' @& v
}
close(IPB1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 ^2 ^6 ^$ ?& k0 X- Y/ o
close(IPB2);
妖城在线论坛; l' J. O( e8 H% U
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 O3 j; g( [4 c1 q8 U3 H% j
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");$ A% N$ _3 O  z
$line=1;
while(<IPC1>)
{
      @item=split(/:/,$_);
      if($line<=2)
      {( j1 U4 ]6 Y3 |3 q& k; t# D8 `
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";9 U4 M) I" ~& N( a& Q" P8 M
      }
      else妖城在线论坛3 ?, w! ^: Y, b" [" v
      {
            print IPC2 "$_";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 U" o4 Q+ q" j$ ~9 r5 |+ O
      $line++;
}
close(IPC1);
close(IPC2);4 a" F3 Z, J9 z& b6 A
妖城在线论坛" |8 S7 ]+ O; n# d# Z; C
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]

TOP

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