妖城在线论坛 - 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，并上传至服务器某目录下魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' `3 C7 T% f% p/ A2 h& _) F
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。

前提条件：bbs.mocwww.com/ R( C/ Y; M% w! @1 A
1. 服务器上安装了perl程序妖城在线论坛& N' Z! h; i- O+ R! B$ T3 s
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：妖城在线论坛; g) e  R# i# v# G3 c5 J
#!/usr/bin/perl魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! P! d  L+ A- p( n8 {

print "Please input the new IP:";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  A- ?' G( V# K0 }7 d; ?" l
$input=<STDIN>;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 j; d0 b& X6 _& {6 X
chop($input);$ `# s4 M% v% S0 D) S

system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";妖城在线论坛" i) t, W; @" Q' h0 b& f7 A
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");魔力私服,最新魔力宝贝私服技术交流/ H. ?  J7 k' g" A7 Y$ G
open(IPA2,"> /var/www/html/PUK3/newest.txt");妖城在线论坛$ O" |( X/ z' i" v
$line=1;. l4 ?0 \/ {: Q4 ?6 w
while(<IPA1>)妖城在线论坛! H+ K3 M- q3 r/ k  F0 u1 C( o
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. ^6 s, Z1 Z6 j/ x; r
      @item=split(/:/,$_);
      if($line<=2)
      {
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 }0 t7 k# t% ~- T6 ^
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 S  H% K7 ?6 z" {$ f5 w, K
      else
      {bbs.mocwww.com' x) d9 S5 |$ S* ?. y, V
            print IPA2 "$_";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 K2 t! @$ B! Q
      $line++;bbs.mocwww.com8 L+ Q/ y2 t" ~, r' i7 y% b
}bbs.mocwww.com8 I$ N, C0 n+ {, R6 _3 S, x& S
close(IPA1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, e5 S; p+ U1 P
close(IPA2);bbs.mocwww.com5 U, y' A- b% ]# e$ Q2 k% `5 F1 b( U9 w
妖城在线论坛# G. T) N4 Z* w7 R5 H8 i3 Y
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>)
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, H2 d  C3 j% D/ L  {8 G  r
      @item=split(/:/,$_);妖城在线论坛& A# V1 H4 K: A
      if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. D0 x; Y2 w* m0 Q7 n% j# V
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";妖城在线论坛, }  Y* A* [5 K8 ^$ j
      }妖城在线论坛$ }7 u1 g, R' c$ p
      else
      {
            print IPB2 "$_";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: \8 x% i8 I: s
      }$ l# ]' j; M" L: h: [. U6 L
      $line++;
}
close(IPB1);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 ]+ Z# n& H& F
close(IPB2);妖城在线论坛9 M7 \( F& @. X; [

system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 M4 @# W% v4 T' C! X
open(IPC1,"/var/www/html/Update/info.txt.bak");
open(IPC2,"> /var/www/html/Update/info.txt");妖城在线论坛( d* f! s' K& P: x4 i/ Y, S
$line=1;
while(<IPC1>)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! _$ ]  g; S7 X+ }
{
      @item=split(/:/,$_);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ ?( o5 d3 Y* z) {. c
      if($line<=2)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* |# A3 ^8 \# v% h/ t
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" X6 A7 y7 R/ |  \
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }bbs.mocwww.com$ F6 K& B3 O# ?4 w, Z3 @" H$ s, A
      else妖城在线论坛, N0 n9 x  s9 R& N" Q4 F
      {
            print IPC2 "$_";妖城在线论坛9 g7 \7 [" U& T- d, r- y" U" e! ^
      }
      $line++;
}  I& z: Q7 A8 I+ p8 p6 J! x
close(IPC1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 Y' D+ k, C( u/ t
close(IPC2);魔力私服,最新魔力宝贝私服技术交流: T0 ~1 _$ M9 T! L% L+ g0 |" ~5 `

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

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

很好很强大``

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

修改那个不麻烦吧
貌似这个工具没有必要
不过还是顶啦

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

呵呵..谢谢咯...

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

看了，顶了！谢了！
thanks~

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

看玩顶下
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 v2 k, M$ s& Y( w; d9 S ?5 e6 [
又荒度了3天

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

很不错,谢谢LZ!

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

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

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