打印

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

执行代码：—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: s+ V7 B0 R0 T9 O- x! @
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下妖城在线论坛0 ^; [" ]& e3 P$ l" c. W+ ^
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
妖城在线论坛( ]6 p5 |* I1 P4 a% S" _+ i1 s3 b! L
前提条件：% \+ t0 R' L+ [1 r" b5 e5 ]7 `! ~3 d2 P
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。1 \9 L" [2 |0 z- A- R
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. ]: Z" o# t( P* P
代码如下：
#!/usr/bin/perl魔力私服,最新魔力宝贝私服技术交流! J7 ?3 U0 B/ y7 f& F
妖城在线论坛* |5 h4 V5 P( [$ O3 h# k
print "Please input the new IP:";
$input=<STDIN>;
chop($input);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% ~6 o: `- Q3 o) \* V
妖城在线论坛( H( x$ }6 ~' c- m7 d( I% f- f
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";2 j7 |, V: W0 O/ t
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# }  o# p3 Q: J7 q2 C# x8 a( z
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;妖城在线论坛+ S; [  ]6 `# y: H0 k$ }
while(<IPA1>)
{
      @item=split(/:/,$_);
      if($line<=2)
      {bbs.mocwww.com* J' H( C3 p$ M" ?+ X5 ?
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {! K% P% k7 T1 V; z' v; m2 ]; y
            print IPA2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流, |) |+ M6 A% F* o; Z, ]& s
      $line++;
}妖城在线论坛. K; D, a/ ^5 t- I
close(IPA1);
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");bbs.mocwww.com8 Q+ `: b: [* ^7 _* Z& L) E
$line=1;妖城在线论坛; Z5 Z- K0 w1 M
while(<IPB1>)
{
      @item=split(/:/,$_);bbs.mocwww.com( n3 p1 x) i* b/ z( Q9 W
      if($line<=2)魔力私服,最新魔力宝贝私服技术交流8 R7 s( s# A! E7 J5 b2 m/ j* K7 x
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {
            print IPB2 "$_";
      }
      $line++;
}妖城在线论坛; v: f4 n( e4 d- ]3 m
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");魔力私服,最新魔力宝贝私服技术交流% u; u! N4 \  q: z. {- d- h9 L; a
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 ]0 }7 N8 s8 w( ?) i$ Q) S1 f, d
while(<IPC1>)
{
      @item=split(/:/,$_);
      if($line<=2)% m3 k$ Y' ~9 D% }7 J7 i
      {bbs.mocwww.com: D) t* Q  x9 {3 Q: x/ r( i
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力宝贝私服技术交流# A8 F: h8 b$ p, \( H2 d2 Y) M* n
      }
      else魔力私服,最新魔力宝贝私服技术交流$ O% W; X5 q% W4 Y3 K
      {
            print IPC2 "$_";0 A/ \& E. {: ]4 U' _
      }
      $line++;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% [9 j: O. n) G2 ^
}
close(IPC1);
close(IPC2);妖城在线论坛( X) f- M3 O8 k" u  L% r/ E! @
妖城在线论坛2 W( h! P, R1 O
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]