打印

对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，并上传至服务器某目录下bbs.mocwww.com% [3 G( X; J. v0 Y& n$ }9 p: s: V
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：
1. 服务器上安装了perl程序bbs.mocwww.com- i& n9 M: w* N  o* a
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：
#!/usr/bin/perl
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 N6 G% w2 h9 }4 X% r
print "Please input the new IP:";
$input=<STDIN>;bbs.mocwww.com6 }) [3 k2 v! V$ |. m; X# X
chop($input);
bbs.mocwww.com1 P9 I- z9 z4 ?5 L& ?
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 I/ r# S3 C" F. Y
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' ~: N' D" u3 W
$line=1;
while(<IPA1>)
{
      @item=split(/:/,$_);
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 M2 U% Y4 A- W3 C
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {
            print IPA2 "$_";妖城在线论坛0 Y: ^8 b. F4 O5 H) i* x2 y
      }7 X* Z$ N2 z$ l* r. P  c- R
      $line++;魔力私服,最新魔力宝贝私服技术交流" i1 v# R' }7 \& C1 W; O
}妖城在线论坛) ~) u! L+ w9 a
close(IPA1);bbs.mocwww.com2 N7 G  e2 Y' P  `1 r4 |; S
close(IPA2);

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");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");妖城在线论坛( m* J4 ^8 E. S) c
$line=1;bbs.mocwww.com6 ]" d% z, ~# t9 h& ^
while(<IPB1>)
{
      @item=split(/:/,$_);
      if($line<=2)! h# Z! H" g) p  A! ]% R: F+ r
      {  z9 D7 R# h5 ?5 O9 E, I
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* F" p, m2 ?# d
            print IPB2 "$_";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! f1 k+ _9 f$ p$ I/ R+ R  @2 @
      }
      $line++;
}妖城在线论坛; `# z9 g* w- N8 a
close(IPB1);妖城在线论坛7 w& s! E) R$ y5 x1 v# q. Z
close(IPB2);魔力私服,最新魔力宝贝私服技术交流8 n0 @% h' o: [
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 b, ?9 B5 t$ \8 ~& B- M1 P9 I
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
open(IPC1,"/var/www/html/Update/info.txt.bak");魔力私服,最新魔力宝贝私服技术交流9 l6 z+ x3 g. U5 i7 {
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;7 T- f4 ]7 a& n1 K  J. K8 D
while(<IPC1>)魔力私服,最新魔力宝贝私服技术交流) ]8 o) e8 }0 Y7 i7 M
{
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力宝贝私服技术交流3 s* o4 n0 n4 x5 G) U1 A& {
      {魔力私服,最新魔力宝贝私服技术交流/ H  {: O: {  [4 T( D: m. a+ t
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }妖城在线论坛% G$ e) ]1 W4 E1 y1 \* H8 @
      else妖城在线论坛6 j$ c1 V$ @- U3 }$ ?) M+ Q
      {3 o6 j" T1 m; x+ F  K% G, Z2 W! r
            print IPC2 "$_";
      }
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' r4 x' o% z( [: T: z' F% ~
}魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ U) b6 t6 H2 ~. E
close(IPC1);
close(IPC2);
5 Y$ [4 D1 P; S, E8 N/ Q
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]