妖城在线论坛 - Powered by Discuz! Board

标题: 对PUK3等目录中newest.txt更改的小脚本 [打印本页]

作者: asdf1234 时间: 2008-1-1 13:19 标题: 对PUK3等目录中newest.txt更改的小脚本

对于经常要更换IP(或域名)的服务器端，因为web验证的关系，需要经常手动更改PUK3、PUK3_CEN、Update等目录中的newest.txt文件，为此写了这个没什么技术含量的小perl程序，以简化手工操作。

执行代码：
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下魔力私服,最新魔力宝贝私服技术交流, C8 a9 p( o0 i6 _$ L/ v- N" [
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。6 g; W9 A1 w! @# ~* A' }
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& W: B) u' {5 x* R% `" f
前提条件：
1. 服务器上安装了perl程序魔力私服,最新魔力宝贝私服技术交流$ @3 q3 _7 G1 s: p
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。bbs.mocwww.com5 y7 g! a: @2 `' L( _5 e

代码如下：
#!/usr/bin/perl魔力私服,最新魔力宝贝私服技术交流: c# ~0 s3 E. W+ d. @" |/ u

print "Please input the new IP:";妖城在线论坛; ^8 h* L6 [$ \5 g) m- i! R
$input=<STDIN>;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, k8 k; I! ~6 R' O. R- G3 ?
chop($input);
6 z" n( n3 ^7 B1 K9 R
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";; W) \2 U! y" r. O
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");妖城在线论坛. p6 O- b- h! L4 i; ?% }5 }
open(IPA2,"> /var/www/html/PUK3/newest.txt");bbs.mocwww.com# P: T' v* z* z# w* N3 w' ^
$line=1;
while(<IPA1>)
{
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表# c% k; L5 o* {8 s& P
      {bbs.mocwww.com5 v2 q4 `- N5 S
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力宝贝私服技术交流6 M4 e* l' I+ w7 w  d- d. E2 Q8 K: i
      }bbs.mocwww.com3 I$ N$ G0 V# w4 F; f; K3 T
      else* O; p( V1 }5 {  g7 d0 t, F. j
      {
            print IPA2 "$_";
      }
      $line++;bbs.mocwww.com/ E9 u5 S8 N4 j) ^
}
close(IPA1);
close(IPA2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 z2 ]6 q+ c; C

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");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 G. |6 u" _& w3 J( u% k
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
$line=1;
while(<IPB1>)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 ~) i# N- z6 l; B; m
{
      @item=split(/:/,$_);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 X" D1 _* c6 ?
      if($line<=2)
      {bbs.mocwww.com% d' O% `7 Z+ c* U$ r
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {
            print IPB2 "$_";
      }
      $line++;bbs.mocwww.com0 d0 Z' R1 a4 Y4 |2 G3 I8 t! O
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# r* c+ o1 }3 s( C4 }" d
close(IPB1);妖城在线论坛# [% k. x( e' |! [1 W
close(IPB2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 x! W; w2 M& ^

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>)bbs.mocwww.com! r% o& Q2 W8 u6 C. l3 Q
{
      @item=split(/:/,$_);
      if($line<=2)魔力私服,最新魔力宝贝私服技术交流  q. X, J2 Y6 H# E( o3 g
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 s: K8 Y! a4 A/ Y) ~$ I% O
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";bbs.mocwww.com+ K% A+ X  u9 V1 ^/ ?
      }bbs.mocwww.com0 l& {  P" _0 K; D
      else
      {
            print IPC2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* _6 z5 r  R: G9 O% v
      }bbs.mocwww.com' j0 G3 g6 `8 R, H
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 N1 l  C6 O! \  o+ O9 k
}
close(IPC1);
close(IPC2);
魔力私服,最新魔力宝贝私服技术交流! T; y2 G+ f; s8 ?% B
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]

作者: 厶⒉姙⒈ 时间: 2008-1-1 13:34

很好很强大``

作者: qq887 时间: 2008-1-1 13:51

修改那个不麻烦吧( d3 _" `9 [% C) {: Y2 J
貌似这个工具没有必要
不过还是顶啦

作者: xuyaoxy 时间: 2008-1-1 14:01

呵呵..谢谢咯...

作者: ﹎▓ヾ僤莼べ 时间: 2008-1-1 15:36

看了，顶了！谢了！
thanks~

作者: 31558770a 时间: 2008-1-1 22:30

看玩顶下

又荒度了3天

作者: wanwankan 时间: 2008-1-4 21:17

很不错,谢谢LZ!

作者: 夜光石 时间: 2008-1-4 22:08

很好很强大，懒人伟大的就是创新

欢迎光临妖城在线论坛 (http://bbs.mocwww.com/)