打印

对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程序，以简化手工操作。
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 \* w- z! |) l/ X* v! o
执行代码：妖城在线论坛% }+ z- I; i" I0 K1 N+ b
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" X' Y* d) S' ]8 b3 S
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：bbs.mocwww.com5 c0 @3 b0 O; \% @# T! \1 ~/ x
1. 服务器上安装了perl程序魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  u# z$ R5 X! g9 i0 X8 Y
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。妖城在线论坛0 G1 [" V: z" T- I" K( G

代码如下：
#!/usr/bin/perl妖城在线论坛& A/ A' R0 m6 U5 B% k
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 T1 V* e2 a% u/ v
print "Please input the new IP:";- L* f5 a0 ]8 f( m- C6 r7 A
$input=<STDIN>;bbs.mocwww.com1 l4 N# H4 b* t; q4 D" S
chop($input);

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";bbs.mocwww.com# O- z5 U1 R& K' u  R0 @
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");魔力私服,最新魔力宝贝私服技术交流& t) \# |. R  b+ [9 y- a) d. S
open(IPA2,"> /var/www/html/PUK3/newest.txt");妖城在线论坛+ h/ j) y# B* R! U+ D6 A- f1 t" C% h
$line=1;
while(<IPA1>)
{
      @item=split(/:/,$_);
      if($line<=2)妖城在线论坛4 H! U; ?# A; n
      {魔力私服,最新魔力宝贝私服技术交流' q' V9 s" w  ?) w
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 F8 d) L) A5 [* l
      }妖城在线论坛, C. K" T- R3 F% z0 j" W" @
      else妖城在线论坛1 N$ N) z* K3 F" I$ F0 Z% P
      {妖城在线论坛& ~) U* F+ S& r% \3 ]
            print IPA2 "$_";魔力私服,最新魔力宝贝私服技术交流" h/ w! e+ X7 A8 X
      }魔力私服,最新魔力宝贝私服技术交流2 g: T( I' l0 y( W( {  C
      $line++;
}
close(IPA1);bbs.mocwww.com% }0 w0 q0 V( ]
close(IPA2);妖城在线论坛  a& H3 ]; G4 i( y5 s

system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";妖城在线论坛. a9 d6 j) H1 p6 @' \
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; q' A( ]6 r8 N% h3 b3 c
while(<IPB1>)
{魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, V4 N2 _% [2 \( X
      @item=split(/:/,$_);bbs.mocwww.com& }9 l: ^$ [( B" f
      if($line<=2)
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 P% _1 m  c" j6 H
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";4 r; e3 J3 u" A7 _; `" G% Y
      }
      else
      {bbs.mocwww.com, u2 N- _9 K  v! q9 s( C# _
            print IPB2 "$_";
      }魔力私服,最新魔力宝贝私服技术交流8 k: Z, N  y% ?0 ~# [
      $line++;
}
close(IPB1);
close(IPB2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; c4 d+ r# U8 Z. E2 w3 O

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.com1 O# [! k9 \, R
$line=1;
while(<IPC1>)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# ~- E+ {4 j, U$ H
{
      @item=split(/:/,$_);
      if($line<=2)
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ n7 D8 c6 a; J- h' W# N: `
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";bbs.mocwww.com8 T% B! Q1 c9 ]# y% Q. |
      }妖城在线论坛  {7 ~1 L" x) d
      else
      {妖城在线论坛, ?  F) z& m! D+ B. j
            print IPC2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" K% w# m- q2 R5 [
      }魔力私服,最新魔力宝贝私服技术交流# x! X5 K2 M' d9 Q
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' z. `8 r+ N( \- Y5 Z5 q$ F) H- K
}
close(IPC1);魔力私服,最新魔力宝贝私服技术交流; _- g! ^7 C5 s
close(IPC2);
3 ^& J! K3 x  m- o* Y" `
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]