妖城在线论坛 - 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程序，以简化手工操作。
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 p3 `. W. t  c
执行代码：妖城在线论坛- Y$ p7 r1 Z7 b5 B/ i- W
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下bbs.mocwww.com# _+ S1 ?; l! `& E' E+ d* ~3 b
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! }, Z$ L' P3 |
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, I4 _8 U' a( d* X! L
前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。/ f- s/ P. I) y* j
bbs.mocwww.com6 y. u& S; X: f( w
代码如下：—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 H6 G' y8 _1 o/ q: b( n3 k& Z
#!/usr/bin/perl
bbs.mocwww.com% k# X( _, [' a( h) S4 _# j
print "Please input the new IP:";妖城在线论坛  L! D$ q9 w: [0 Q+ H, l! P# ^
$input=<STDIN>;bbs.mocwww.com9 `9 s1 d/ l4 K0 ?( ~- E
chop($input);
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 `, c) ?, b! z, b
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,电影,黑客,网络,网吧,破解,入侵,注册表9 j, A7 F. B1 W0 z) R
$line=1;5 o& c8 z: I: H7 V5 k, @
while(<IPA1>)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  s9 z7 j0 z; \9 b  a; v$ D2 ~
{
      @item=split(/:/,$_);
      if($line<=2)妖城在线论坛* S4 \9 V+ Z- ]# ^- J" @) ]: u
      {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 {$ s; p; \' ^& e3 B+ \
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力宝贝私服技术交流! d# w- s& @; Z7 P( D+ ^
      }
      else
      {魔力私服,最新魔力宝贝私服技术交流/ e0 }% z' u7 ]& p6 a; V. B) X( T
            print IPA2 "$_";bbs.mocwww.com1 k/ Z5 q& C4 v4 t) ~- x: [' V
      }妖城在线论坛6 y5 _# N' t& ]3 Q
      $line++;# b) a" J/ p" n3 o6 m
}魔力私服,最新魔力宝贝私服技术交流" z- V0 u0 F1 s" P- {  A4 w
close(IPA1);
close(IPA2);
bbs.mocwww.com  [' M* w  M$ J" ?5 J- }5 ~
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");2 P* Q  N2 i- d" A6 e7 o* J
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");魔力私服,最新魔力宝贝私服技术交流3 U* F9 W  c9 @+ B6 L5 F$ }1 A
$line=1;bbs.mocwww.com. U# |2 t! q) J+ T9 r- }
while(<IPB1>)bbs.mocwww.com2 c+ p: g9 I' {& y# ~3 U9 B) P
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" W! U  ~* K* g8 Z5 a" [9 T" _  T6 _
      @item=split(/:/,$_);魔力私服,最新魔力宝贝私服技术交流2 W& G3 D) s3 r9 F+ m) L, T  x9 ~
      if($line<=2)
      {魔力私服,最新魔力宝贝私服技术交流/ u5 `9 o8 U9 q( D" b
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";
      }
      else
      {魔力私服,最新魔力宝贝私服技术交流* h4 v. s! n; x7 e5 B% k1 F1 ~' [
            print IPB2 "$_";
      }妖城在线论坛; _2 P. t1 n2 B8 b  i$ R
      $line++;
}
close(IPB1);
close(IPB2);

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";bbs.mocwww.com. I2 R% V1 |: {: _2 j! J
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");
$line=1;
while(<IPC1>)
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" k; L) ^& s# O/ E3 P
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; @8 G" }& V  X6 B/ D0 |; \' {
      if($line<=2)
      {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 S- C9 D3 m* d
      else
      {
            print IPC2 "$_";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, o5 Z- d0 i7 i# }
      }
      $line++;
}
close(IPC1);
close(IPC2);9 d! ]6 \4 h& Z, J

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

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

很好很强大``

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

修改那个不麻烦吧—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 w: e: d2 C) N. a7 P, M
貌似这个工具没有必要
不过还是顶啦

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

呵呵..谢谢咯...

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

看了，顶了！谢了！魔力私服,最新魔力宝贝私服技术交流2 N0 W5 r- s. E" k3 f6 n. A
thanks~

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

看玩顶下
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 M; ~1 v$ o3 f5 Y- m
又荒度了3天

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

很不错,谢谢LZ!

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

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

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