打印

对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程序，以简化手工操作。魔力私服,最新魔力宝贝私服技术交流4 t6 P( p* q; V+ f1 j. K
魔力私服,最新魔力宝贝私服技术交流. I8 y  @+ k8 B; S8 i2 R& H
执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下魔力私服,最新魔力宝贝私服技术交流! K: r6 y. _- S7 ~' a
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。魔力私服,最新魔力宝贝私服技术交流! s! u$ r0 g( `

前提条件：8 ]" @0 _2 m8 r5 }3 C6 A  T1 X
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：
#!/usr/bin/perl
魔力私服,最新魔力宝贝私服技术交流- E" c# @+ t3 n3 T# d
print "Please input the new IP:";/ H) Y8 E/ `7 o+ m" T. {: V$ v
$input=<STDIN>;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ I( e' j+ ^! A) j+ |
chop($input);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, m- `1 t1 b. [1 D. h

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";魔力私服,最新魔力宝贝私服技术交流8 A) Z9 C# N# h* t
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");+ n  i; z! _' a8 h6 G
$line=1;
while(<IPA1>)
{
      @item=split(/:/,$_);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 v- P5 N! t5 d* Y! D4 {6 P( Y, D
      if($line<=2)妖城在线论坛4 u" q- P  z2 d# L- y$ x
      {bbs.mocwww.com, ?3 ~5 k% r( n7 t) w* K, {. Y
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {
            print IPA2 "$_";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' Z2 S& I8 Y, q5 j  M
      }2 l2 F2 R0 @+ w+ ]1 s& E$ f
      $line++;bbs.mocwww.com, W+ J; Y8 V% L  w% F5 P
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 k1 r$ j3 U2 h" b& I* q) W
close(IPA1);
close(IPA2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( S* M7 i+ r7 x: w1 }/ ]

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";妖城在线论坛( b5 m2 r2 B4 S' v  G
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ T/ {' A, |1 I- x5 Q0 m
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");魔力私服,最新魔力宝贝私服技术交流4 N0 g0 y) A8 j, m
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 U/ b5 [9 S6 S, ?  {$ Q) a
while(<IPB1>)- N  q+ l2 x( J- K+ S
{
      @item=split(/:/,$_);
      if($line<=2)妖城在线论坛/ A* m* ?! ]! o4 m0 B* `& X* c
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* a8 y5 {# ], g% p
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {
            print IPB2 "$_";妖城在线论坛  ?0 _9 w* L4 q
      }
      $line++;
}
close(IPB1);
close(IPB2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) L: n+ r! l7 C& E8 F6 ?6 |0 Z

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");bbs.mocwww.com, l) g2 Z( q2 H9 ?$ E; S1 I
$line=1;
while(<IPC1>)
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" i' l" k6 N5 k" E# X# |# g
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }bbs.mocwww.com3 j7 N1 r  E' \4 ^0 m4 V# b* z
      else魔力私服,最新魔力宝贝私服技术交流( z4 a* _9 H8 h+ w3 Z: x+ Q
      {魔力私服,最新魔力宝贝私服技术交流$ O5 V. K$ |( {" U2 u
            print IPC2 "$_";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  J1 I. k1 a0 B5 \
      $line++;
}魔力私服,最新魔力宝贝私服技术交流  p! E9 s7 q" b- _  |
close(IPC1);
close(IPC2);

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