对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程序，以简化手工操作。妖城在线论坛8 U4 n& S+ ?% t, ]/ j3 I

执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- j: |: g; V1 `  W8 `7 h3 g% L3 }7 X
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：bbs.mocwww.com" E% f5 A* b' {% D. v4 t
1. 服务器上安装了perl程序妖城在线论坛2 g" g1 U; s( r
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。% b# m6 M/ Z* |# ?+ B. m  ]

代码如下：妖城在线论坛7 s& {! C3 L1 t9 K' w. s: j( g
#!/usr/bin/perl( o7 }- j- \) h* \8 \' `
妖城在线论坛* B; b# A3 p" ]0 ^# `* r# ^
print "Please input the new IP:";
$input=<STDIN>;魔力私服,最新魔力宝贝私服技术交流# }+ R! x0 r& C/ u. M9 n
chop($input);( G5 x4 ?* e5 l
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 E* Z4 A+ U& G1 @
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ Y/ Y, W; ~- n
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;
while(<IPA1>)
{
      @item=split(/:/,$_);
      if($line<=2)
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; E( h8 {- S3 i; ?! W. o
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力宝贝私服技术交流& c# r& l. R% V" k% g3 S3 H2 M$ w, X
      }
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 L: m5 ~4 t" c4 U
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 g5 [4 h/ {1 l& u2 j' y# i6 ~" a- p
            print IPA2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流- @) U2 c/ Z( R0 y! S6 J& Q, M
      $line++;魔力私服,最新魔力宝贝私服技术交流+ H8 Q4 g3 ?/ r
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# m2 |0 g: Y- r0 A2 \
close(IPA1);
close(IPA2);
妖城在线论坛$ L; N) O) c( w9 q& z2 u  Z5 W
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");妖城在线论坛! X$ D! \9 S7 |! J
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- p1 B5 G4 h) k; n, ^! q
while(<IPB1>)
{
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }妖城在线论坛- ~! L/ C; j% {
      else妖城在线论坛- z+ Q: \1 j* V. s+ o
      {妖城在线论坛8 m. _: x7 {4 m9 r7 m" L/ V' h# L
            print IPB2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 r0 _: I; z* ]( G
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! p' T) r- o' l0 N! `
      $line++;: l4 X+ Z2 Q$ g# k6 a9 c
}
close(IPB1);bbs.mocwww.com9 ?9 }6 N. o6 g( p2 B5 L
close(IPB2);
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& V$ O3 k& A) S+ E5 J- z" p
system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  r/ X2 D& G3 z$ K
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");魔力私服,最新魔力宝贝私服技术交流$ b5 }1 p  a' m4 F6 ]% o& J
$line=1;
while(<IPC1>)
{- u  ^. U! o- W- d8 S# n
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ `2 Z: E3 W& O2 i! q
      }
      else
      {妖城在线论坛4 ]+ {4 Y" z4 p1 ~4 M- u
            print IPC2 "$_";bbs.mocwww.com8 X1 M" b8 T/ V% m1 F. f
      }
      $line++;魔力私服,最新魔力宝贝私服技术交流: R0 A9 F8 {# c, \1 e. }! f; H
}魔力私服,最新魔力宝贝私服技术交流# E! x3 l3 m  b' A/ I5 C
close(IPC1);
close(IPC2);$ A# D: ], `9 B1 e' {3 W
妖城在线论坛# T) {$ p% ^4 X! x# D
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]

TOP

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