打印

对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程序，以简化手工操作。
妖城在线论坛" R, E9 Z# `2 P0 n; V3 R- ?$ M
执行代码：魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. T" O& z( t, O! C2 [
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下bbs.mocwww.com# Z& N$ e5 c) y/ q9 E2 g7 {
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。) j, b3 {( j- J; _% O
妖城在线论坛3 |; u" ]& ]4 F/ o/ J' Q- A" B
前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。魔力私服,最新魔力宝贝私服技术交流: I9 a) J' ]0 c" @+ o

代码如下：bbs.mocwww.com# J2 J% L& W1 J/ E0 p* n" l
#!/usr/bin/perl
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- b; I1 y) {) p+ G* L( g
print "Please input the new IP:";
$input=<STDIN>;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% z# }. @" T  [/ {0 D% t- i+ }
chop($input);

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";bbs.mocwww.com! @+ a( b0 n0 b4 ~0 K5 y3 O. q: c
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");bbs.mocwww.com' G8 q. ^$ ^, i4 X: {
open(IPA2,"> /var/www/html/PUK3/newest.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- ]  x7 L) x3 [( M0 \1 ~
$line=1;
while(<IPA1>)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. \& u0 m4 m4 G1 ~9 a
{魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 ^* w" h- e! u6 a  i/ t; d" q) c1 z
      @item=split(/:/,$_);
      if($line<=2)妖城在线论坛8 ?; f9 Q( Y  K3 R- k
      {" Z1 i: z1 u2 L
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! i; z) o  `9 \* [" P4 [
            print IPA2 "$_";
      }
      $line++;
}
close(IPA1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 L7 A( W+ W  R0 P) `" o
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");魔力私服,最新魔力宝贝私服技术交流5 U4 P, x/ p1 r( J0 H5 i+ F
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");妖城在线论坛: a' L: N& R* l; J% t
$line=1;2 {7 E7 p; k, x, E
while(<IPB1>)
{妖城在线论坛9 \' f4 _8 M( J$ c" ~# _( M
      @item=split(/:/,$_);
      if($line<=2)  U" [# X' R" M: g$ }' k* p
      {魔力私服,最新魔力宝贝私服技术交流6 K- A; ]" K9 C! g1 c' q
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- _) k8 d( W3 \# k! L
      }魔力私服,最新魔力宝贝私服技术交流8 C, Q3 v& @4 q+ r
      else魔力私服,最新魔力宝贝私服技术交流+ W  \- T1 _1 B! Y4 \5 t  U5 ^
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  [# G9 n/ W5 t& i5 m
            print IPB2 "$_";
      }bbs.mocwww.com' M; ^4 q/ @7 T: m+ v
      $line++;
}魔力私服,最新魔力宝贝私服技术交流: |! G  Z2 B  A7 f" [/ u$ 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");
$line=1;
while(<IPC1>)
{魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 B# I4 n% u# y' b+ q; t. W' i: b2 _
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% H) [& e$ L8 k4 G. F. A  g
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( i9 R. M- \# f# v8 h7 z4 O0 m/ f
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";bbs.mocwww.com- O1 M( y) R5 ~! k+ f
      }妖城在线论坛# o0 }/ Y+ i; C1 D/ L
      else
      {
            print IPC2 "$_";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) `9 Z7 Q5 x: \
      $line++;
}bbs.mocwww.com7 u7 O, p3 A# \& K! m$ P# c
close(IPC1);
close(IPC2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 C5 b) a, Y' ]# G: |% _5 ^8 B8 G

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