打印

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

执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ z& Q+ e/ W; T( p8 M3 R
前提条件：  H5 P4 {' o7 }1 R" l9 u. ]
1. 服务器上安装了perl程序魔力私服,最新魔力宝贝私服技术交流& `7 V+ e3 O, C: T. q3 I( z
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。妖城在线论坛  q% Q' }( [0 l( `; _" @

代码如下：
#!/usr/bin/perl

print "Please input the new IP:";妖城在线论坛8 r& H& B( n# q4 F9 j- x+ x0 F
$input=<STDIN>;bbs.mocwww.com6 j4 D+ w% N9 N# z
chop($input);

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");魔力私服,最新魔力宝贝私服技术交流$ a& t' W+ m/ X1 C" _8 J* `% w. t
$line=1;6 i/ e- F! r5 g- r
while(<IPA1>)bbs.mocwww.com. p7 E4 l7 b! }! t
{
      @item=split(/:/,$_);bbs.mocwww.com6 \6 w5 w! s- i: X9 g
      if($line<=2)
      {妖城在线论坛' p5 y* g1 j1 f+ F2 t! R
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# P) l& B7 x7 _) v2 X
      }魔力私服,最新魔力宝贝私服技术交流  m! C+ }, e) I/ G4 p+ v& T; M$ Q
      else
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 R( j& X4 v7 m* f6 z" O3 I; M
            print IPA2 "$_";
      }
      $line++;
}
close(IPA1);
close(IPA2);魔力私服,最新魔力宝贝私服技术交流) J6 j! |% D/ ^  _/ K8 ^
妖城在线论坛/ r7 m* _4 G. d& A: B
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");
$line=1;
while(<IPB1>)
{
      @item=split(/:/,$_);, I- S! k( [, ^$ Q, Z& T
      if($line<=2)+ R5 f4 \  ]( t  b0 z7 S
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 h/ R  A" I0 O# A
      {
            print IPB2 "$_";
      }
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- W: T4 ^4 k7 ]% z/ t  o1 K' ?
}
close(IPB1);
close(IPB2);魔力私服,最新魔力宝贝私服技术交流. ~, D: D$ V) ~& I( l

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");  o; I4 j/ d) S5 z2 j
$line=1;1 _" A$ J# T% P( y6 U
while(<IPC1>)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# n' @4 V& N2 Y  i  d$ h9 ]+ `' h
{
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 S& T! H( ^/ _4 b5 F# O
      {魔力私服,最新魔力宝贝私服技术交流- o! F2 y/ T8 e# Y0 X8 f! z
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";0 E/ a4 K6 W( j9 p
      }魔力私服,最新魔力宝贝私服技术交流3 _. V3 Q- I9 V9 r
      else7 K3 T. R. I- D+ L
      {
            print IPC2 "$_";. w% W4 S, L' R9 W' d# a
      }
      $line++;
}, p1 H' O/ V. c, r6 w/ T
close(IPC1);妖城在线论坛' t+ H7 m: U3 M6 J$ q( S( q% a
close(IPC2);
/ L2 `; J8 n" r: w* X" }" ?8 i) _
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]

TOP

厶⒉姙⒈

ＬilimedＡ

妖帅

Rank: 9 Rank: 9 Rank: 9

☆為了水王的榮耀！

UID: 2296
精华: 6
积分: 4979
威望: 2 度
性别: 女

妖城妖将勋章女性会员勋章优秀会员勋章抢沙发大王专用勋章灌水天才勋章爱心使者专用勋章

沙发大中小发表于 2008-1-1 13:34 只看该作者

很好很强大``

TOP

qq887

线线

妖使

Rank: 3 Rank: 3 Rank: 3

UID: 1017
精华: 3
积分: 574
威望: 0 度

板凳大中小发表于 2008-1-1 13:51 只看该作者

修改那个不麻烦吧魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; A. a8 d: G. U9 H0 ~
貌似这个工具没有必要—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: W/ T0 w* r$ |, O
不过还是顶啦