打印

对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程序，以简化手工操作。

执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 @& r9 j! [( |' o) U/ U0 l' Q6 n5 {
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。魔力私服,最新魔力宝贝私服技术交流& B( o4 }1 R" H3 \! a2 L% Q0 e
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" n" a+ C+ ?. ^1 ]: ~
代码如下：魔力私服,最新魔力宝贝私服技术交流2 U5 V- A$ u. c; Y, \$ z) x* q1 {
#!/usr/bin/perlbbs.mocwww.com/ h0 t( p( k, n$ O% y& v4 _

print "Please input the new IP:";
$input=<STDIN>;% f0 |+ R, }5 v. \: o* i
chop($input);bbs.mocwww.com$ z9 Z* S8 S+ V) @7 O+ U$ p

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;
while(<IPA1>)- b9 y" D/ h1 ^' k5 h* L) N
{3 K) s# M+ z6 l* W' M
      @item=split(/:/,$_);) Q  @. ]3 o' l- c9 V+ \
      if($line<=2)
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }" z  W. u1 S3 o1 S1 C# p+ x
      else
      {
            print IPA2 "$_";
      }3 ?* N3 ]( x/ H- w
      $line++;
}
close(IPA1);
close(IPA2);妖城在线论坛6 ^; m& r) a; F" u4 S$ j

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");% o3 X* R1 A, e3 \  D: ^
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  T4 {5 u7 B9 J, ?- v0 H
while(<IPB1>)bbs.mocwww.com% l3 L# f0 y6 C, x7 v' h
{
      @item=split(/:/,$_);妖城在线论坛9 ]6 H- E8 |# E7 I+ N1 j
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  Z$ b! p* L4 @1 Z" Z' R
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; u5 q% G4 N; s6 |
      else魔力私服,最新魔力宝贝私服技术交流: [% V5 i7 q0 q5 ^# _  D
      {
            print IPB2 "$_";
      }
      $line++;妖城在线论坛$ H* z6 o, e! D- v6 n
}
close(IPB1);
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");妖城在线论坛8 }$ I0 g( X" @
$line=1;
while(<IPC1>)( F; y' U* {0 w( B/ r( o
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) E5 C  J# k; z
      @item=split(/:/,$_);
      if($line<=2)
      {4 m/ K- {* x, T
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力宝贝私服技术交流1 D( k8 v; \0 e& h
      }
      else
      {
            print IPC2 "$_";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ R+ M" x( M% G  y$ k# x
      $line++;妖城在线论坛% O; E# l) a% ]
}
close(IPC1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 Z* q  T6 G9 ~
close(IPC2);妖城在线论坛7 e4 C. \1 R5 {# }6 v3 D$ ^
魔力私服,最新魔力宝贝私服技术交流. r* \* v+ g  N
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]