对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程序，以简化手工操作。妖城在线论坛2 o4 p, s3 D0 R3 c/ P
0 v# h/ T2 B, h7 ?! Y/ @: L9 p
执行代码：魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' L# y( k# ]/ |2 K' i6 i1 Y) ^7 A
1. 把下列程序代码(红色字体部分)保存成一个文件，如addip.pl，并上传至服务器某目录下& b8 {; ]& S! G6 }# M( m* x0 V
2. 登陆服务器该目录，执行命令 perl addip.pl ，输入欲更改的IP地址(或域名)，回车即可。
魔力私服,最新魔力宝贝私服技术交流( ^9 E) u- \% D) |# M9 o# Q
前提条件：
1. 服务器上安装了perl程序
2. web验证相关文件在/var/www/html目录下，若不是，只需更改脚本中相应目录即可。

代码如下：3 ?  }' T; P1 U+ J# R1 v' t
#!/usr/bin/perl
魔力私服,最新魔力宝贝私服技术交流. i4 {+ E3 N( X9 \
print "Please input the new IP:";妖城在线论坛+ ]. Q( C* y( R" [% K- J9 k
$input=<STDIN>;
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");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ y: U4 u0 ^* V5 c
open(IPA2,"> /var/www/html/PUK3/newest.txt");
$line=1;
while(<IPA1>)
{bbs.mocwww.com4 ^: d; A2 {5 |7 L2 B9 C
      @item=split(/:/,$_);
      if($line<=2)) g  R. S6 u4 S. }7 M, F: w
      {妖城在线论坛' u& \$ m% V0 ^& L
            print IPA2 "$item[0]:$item[1]:$input:$item[3]";
      }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 A9 @& Z% `" n* u) f/ W/ L' ?
      else魔力私服,最新魔力宝贝私服技术交流9 K$ _5 p' ^! k' N
      {魔力私服,最新魔力宝贝私服技术交流$ D* }# A# f* b- S2 g1 S' }, q
            print IPA2 "$_";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! w5 S3 R  I' ]9 ]; O
      $line++;
}
close(IPA1);
close(IPA2);魔力私服,最新魔力宝贝私服技术交流+ n" E/ R, N) ?* `" R3 M2 b
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 ^' C  R* h: |7 O. H
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");妖城在线论坛4 T' d. b# P( ?: V6 n  @
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ w9 f3 @2 c+ ~% S9 `. ]
$line=1;
while(<IPB1>)魔力私服,最新魔力宝贝私服技术交流* {0 c; d! Z; u) q
{
      @item=split(/:/,$_);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 ^' l- _" H6 Z$ e
      if($line<=2)
      {
            print IPB2 "$item[0]:$item[1]:$input:$item[3]";bbs.mocwww.com4 m" }" {- F' x2 y% a( d& U: q+ j3 g, o* c
      }
      else
      {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: }( D( P. @7 ]* D8 m0 ]. `: N% B
            print IPB2 "$_";
      }
      $line++;
}妖城在线论坛! x6 F8 O# g* L3 B; j& E
close(IPB1);
close(IPB2);妖城在线论坛+ r) d. [" i2 R/ C! W
妖城在线论坛9 _  Y: T  w9 r9 O/ u
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");bbs.mocwww.com4 T7 \1 J# S+ b9 F2 J
$line=1;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 R& h1 h" S8 Z# m) G
while(<IPC1>)  W* K& e9 H, _) q, a* l, [* d7 {
{
      @item=split(/:/,$_);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, S$ G1 f: [; D0 E8 e# Q
      if($line<=2)
      {0 R  Q  w4 m) s0 }$ {
            print IPC2 "$item[0]:$item[1]:$input:$item[3]";
      }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' P6 n8 S3 V( B6 C/ ?4 W- n
      else
      {
            print IPC2 "$_";
      }8 Y3 T6 m- Q6 N
      $line++;9 d) }; d% a. ~1 F
}魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 P& J% k$ g; k6 _8 I
close(IPC1);
close(IPC2);

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

TOP

‹‹ 上一主题 | 下一主题 ››