对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 ?% O% g& a- V) q& H/ m

执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
! x4 i  D! H" A. @" e4 |! z0 K5 q
前提条件：—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. u- l2 {: R: Z2 S% X
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ Y+ P4 O8 i: F3 w

代码如下：魔力私服,最新魔力宝贝私服技术交流" i! K6 s2 q1 H, h; M+ r
#!/usr/bin/perl
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 ?( X7 c; T9 |; b3 H1 M) O! j/ z1 R
print "Please input the new IP:";魔力私服,最新魔力宝贝私服技术交流* n1 f% K$ H5 W+ ~4 \# J
$input=<STDIN>;魔力私服,最新魔力宝贝私服技术交流8 _# L9 O; d- b0 N7 j5 a
chop($input);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& ^  X) w+ n, ^# a& R

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
open(IPA2,"> /var/www/html/PUK3/newest.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- z' u' M/ Z) k+ u9 X- L! w
$line=1;妖城在线论坛; Q, u" |: |" ^5 A3 U4 N6 |
while(<IPA1>)妖城在线论坛% R+ U1 x  F- L8 E" P$ i/ v, _
{魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' X6 z) U% j4 Z7 Y& I' E+ R
      @item=split(/:/,$_);
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! {  M5 l$ E* s* \
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 \4 R' E" U2 i8 o" A
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, C5 G9 ^& B. ]3 x
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, s7 N5 r* c+ ]# I( P& Z
      else
      {
            print IPA2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! J) y/ Z- v5 Z" Z( A( K
      }
      $line++;
}
close(IPA1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- l' _9 h% e( p$ {, W" ]4 Z
close(IPA2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& ?( d0 S& r7 B3 U" Z& q

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");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 x6 O0 h( v3 d! @7 U; R
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;1 V, ?# A  O# j6 l1 V
while(<IPB1>)bbs.mocwww.com* g8 d5 H. u5 a4 T) b% Z/ c% r
{
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& |( j% V+ G: L) p
      }: ]6 s% U, N6 h# p$ C! p: o
      else
      {
            print IPB2 "$_";
      }
      $line++;bbs.mocwww.com4 ~+ b  M/ Z- u! `0 P" U
}魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- D  D- ?1 Y  u6 L
close(IPB1);
close(IPB2);

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";妖城在线论坛3 B$ A2 g# V* Z+ d9 M
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;bbs.mocwww.com* b9 E- l+ H6 ^4 H, ?
while(<IPC1>)妖城在线论坛) A9 m2 m5 c. F4 H1 D' O# |% j
{魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表6 e0 V4 Q5 D# q0 x& J0 q
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else妖城在线论坛) G$ P6 s" U( W/ O1 F" w9 A3 t
      {bbs.mocwww.com& w# n( V5 `, S; y
            print IPC2 "$_";
      }
      $line++;
}
close(IPC1);bbs.mocwww.com3 W2 Q/ h3 a9 V* E  H
close(IPC2);

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

TOP

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