妖城在线论坛 - 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，并上传至服务器某目录下—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 v. c5 L# v9 z2 X$ q; \+ R7 r
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ n/ l& a* q# j: j  K5 Z4 s8 G: ~$ d
前提条件：妖城在线论坛7 F7 C7 X. W2 E" l% W6 k0 L
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。bbs.mocwww.com7 W# F6 |" N5 q  q
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 F+ p7 H, n. E7 A+ e
代码如下：7 h5 t) O( o0 g2 U5 E: v
#!/usr/bin/perl
* v3 }/ n2 o1 ~' `7 C( h: v
print "Please input the new IP:";
$input=<STDIN>;
chop($input);
bbs.mocwww.com( N& s  l6 Q) I7 U9 E
system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");妖城在线论坛2 q2 V( g$ I* E3 d  a% h9 Z
open(IPA2,"> /var/www/html/PUK3/newest.txt");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* E9 r; y& m  G1 g. E
$line=1;
while(<IPA1>)6 i& C+ m: H- I1 _) r
{
      @item=split(/:/,$_);bbs.mocwww.com5 o; U* a8 U+ r8 [
      if($line<=2)妖城在线论坛3 s8 g5 U0 @2 a, ^# R
      {妖城在线论坛: i2 y) R( y7 y3 s) B) _
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {魔力私服,最新魔力宝贝私服技术交流# S. z% t! k. s$ P- U% F
            print IPA2 "$_";魔力私服,最新魔力宝贝私服技术交流$ E  X3 X8 {! T5 G
      }
      $line++;
}
close(IPA1);
close(IPA2);魔力私服,最新魔力宝贝私服技术交流/ Z& X3 X4 D6 N1 h5 x

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编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, v/ G4 C+ H2 e' ~# }3 U
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 z" l% a$ B, B) ]4 W; R) j
$line=1;魔力私服,最新魔力宝贝私服技术交流6 l3 @( D( o" \  _& T6 Y
while(<IPB1>)
{魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( P% v5 ~  _- C) T
      @item=split(/:/,$_);
      if($line<=2)- r+ c; J9 {5 A& N( e7 Q/ c( R2 W& I
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* j: F) h6 g) D( X3 i0 z- B& o
      }
      else
      {
            print IPB2 "$_";妖城在线论坛0 o9 A& q) b5 X; B- Q
      }
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ Q# R9 b/ X. \' j
}bbs.mocwww.com5 ]! w+ V& ]4 q4 x: z$ e
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");妖城在线论坛0 }- E8 T8 V+ n. g9 S! E
open(IPC2,"> /var/www/html/Update/info.txt");bbs.mocwww.com1 s( ~% s1 i3 U, a9 C! R# e
$line=1;
while(<IPC1>); h7 S. d: G% v& g8 V  F2 Y5 f. D: H
{魔力私服,最新魔力宝贝私服技术交流1 d1 q$ C+ h' l1 B, b
      @item=split(/:/,$_);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 d; X. l' R" J* a% a9 n, V
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  `8 Q$ \1 d" x) G6 k5 M
      {魔力私服,最新魔力宝贝私服技术交流5 D, Q6 e/ D# A7 ?
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力宝贝私服技术交流, h) B+ D9 G5 f7 K- z+ M( z
      }魔力私服,最新魔力宝贝私服技术交流" }1 [3 I( w; H2 @' O/ D6 e
      else! K' `+ J4 V( c- a, ?
      {
            print IPC2 "$_";魔力私服,最新魔力宝贝私服技术交流; ]* P+ l# F* W9 L7 {/ c2 J
      }
      $line++;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 F1 Q/ a/ z9 G0 {, {$ n/ x' `+ v
}
close(IPC1);
close(IPC2);

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

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

很好很强大``

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

修改那个不麻烦吧bbs.mocwww.com/ F# {- [4 D( |' t
貌似这个工具没有必要
不过还是顶啦

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

呵呵..谢谢咯...

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

看了，顶了！谢了！魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- n# j9 y8 A8 _9 }! s4 O1 l- R* h
thanks~

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

看玩顶下

又荒度了3天

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

很不错,谢谢LZ!

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

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

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