发新话题
打印

对PUK3等目录中newest.txt更改的小脚本

对PUK3等目录中newest.txt更改的小脚本

对于经常要更换IP(或域名)的服务器端,因为web验证的关系,需要经常手动更改PUK3、PUK3_CEN、Update等目录中的newest.txt文件,为此写了这个没什么技术含量的小perl程序,以简化手工操作。魔力私服,最新魔力宝贝私服技术交流4 t6 P( p* q; V+ f1 j. K
魔力私服,最新魔力宝贝私服技术交流. I8 y  @+ k8 B; S8 i2 R& H
执行代码:
9 n+ o. ?* R' ]. D! F  @7 O7 o—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1. 把下列程序代码(红色字体部分)保存成一个文件,如addip.pl,并上传至服务器某目录下魔力私服,最新魔力宝贝私服技术交流! K: r6 y. _- S7 ~' a
2. 登陆服务器该目录,执行命令 perl addip.pl ,输入欲更改的IP地址(或域名),回车即可。魔力私服,最新魔力宝贝私服技术交流! s! u$ r0 g( `

2 G2 b1 D8 a. A—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート前提条件:8 ]" @0 _2 m8 r5 }3 C6 A  T1 X
1. 服务器上安装了perl程序
9 `- Q' l( \# i1 ]1 g/ f—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2. web验证相关文件在/var/www/html目录下,若不是,只需更改脚本中相应目录即可。
% i- S) R  p8 T" K) Vbbs.mocwww.com
7 Z; ~8 l& p; y: n- C, Xbbs.mocwww.com代码如下:
9 X; H; O9 |4 U. I: @8 i" @; ^魔力私服,最新魔力宝贝私服技术交流#!/usr/bin/perl
( u5 `+ w; ?3 K9 C# b' }魔力私服,最新魔力宝贝私服技术交流魔力私服,最新魔力宝贝私服技术交流- E" c# @+ t3 n3 T# d
print "Please input the new IP:";/ H) Y8 E/ `7 o+ m" T. {: V$ v
$input=<STDIN>;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ I( e' j+ ^! A) j+ |
chop($input);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, m- `1 t1 b. [1 D. h

0 O& u7 P4 G' m妖城在线论坛system "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";魔力私服,最新魔力宝贝私服技术交流8 A) Z9 C# N# h* t
open(IPA1,"/var/www/html/PUK3/newest.txt.bak");
( C5 M1 x# E1 @5 Y' x5 V魔力私服,最新魔力宝贝私服技术交流open(IPA2,"> /var/www/html/PUK3/newest.txt");+ n  i; z! _' a8 h6 G
$line=1;
% s1 u9 g- v( ]7 s妖城在线论坛while(<IPA1>)
( [/ o& F$ T8 U4 f/ l# r{
: m8 P) L- o+ `* s        @item=split(/:/,$_);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 v- P5 N! t5 d* Y! D4 {6 P( Y, D
        if($line<=2)妖城在线论坛4 u" q- P  z2 d# L- y$ x
        {bbs.mocwww.com, ?3 ~5 k% r( n7 t) w* K, {. Y
                print IPA2 "$item[0]:$item[1]:$input:$item[3]";
' I  A* b* ^% z; M! F: y; f魔力私服,最新魔力宝贝私服技术交流        }
+ x7 [% C/ n/ ^% }* Z7 Y6 c妖城在线论坛        else
) f, {8 Q' j4 q1 {/ m/ `: E        {
7 e$ s# N4 P2 ^, P) m—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート                print IPA2 "$_";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' Z2 S& I8 Y, q5 j  M
        }2 l2 F2 R0 @+ w+ ]1 s& E$ f
        $line++;bbs.mocwww.com, W+ J; Y8 V% L  w% F5 P
}—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1 k1 r$ j3 U2 h" b& I* q) W
close(IPA1);
' k# c; Q. g. H( a! w- gbbs.mocwww.comclose(IPA2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( S* M7 i+ r7 x: w1 }/ ]

3 [! R- N: S3 m: Q! @/ y! `bbs.mocwww.comsystem "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";妖城在线论坛( b5 m2 r2 B4 S' v  G
open(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ T/ {' A, |1 I- x5 Q0 m
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");魔力私服,最新魔力宝贝私服技术交流4 N0 g0 y) A8 j, m
$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 U/ b5 [9 S6 S, ?  {$ Q) a
while(<IPB1>)- N  q+ l2 x( J- K+ S
{
' ~" t4 p- T! `  \        @item=split(/:/,$_);
* a/ p" l9 ?3 ]' p9 O魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表        if($line<=2)妖城在线论坛/ A* m* ?! ]! o4 m0 B* `& X* c
        {魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* a8 y5 {# ], g% p
                print IPB2 "$item[0]:$item[1]:$input:$item[3]";
( b" j8 N! B( o3 l. x9 d魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表        }
3 U2 w+ V  [. N( n" [        else
0 w" X. I( A6 z0 R妖城在线论坛        {
" _5 ?: P9 C- Z; p7 c( n1 ^魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表                print IPB2 "$_";妖城在线论坛  ?0 _9 w* L4 q
        }
0 _. ~7 r9 x2 O        $line++;
/ Z6 R4 T, u; u0 Y}
- b& t3 G' B9 F4 A+ K: x魔力私服,最新魔力宝贝私服技术交流close(IPB1);
* a8 k4 n' X9 ?% [—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートclose(IPB2);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) L: n+ r! l7 C& E8 F6 ?6 |0 Z

& _  v4 f8 ^  {system "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
8 q/ _; F- D$ y" Y, c. uopen(IPC1,"/var/www/html/Update/info.txt.bak");
( B; C# _. s7 C7 h% Z魔力私服,最新魔力宝贝私服技术交流open(IPC2,"> /var/www/html/Update/info.txt");bbs.mocwww.com, l) g2 Z( q2 H9 ?$ E; S1 I
$line=1;
4 u) ?2 H/ ]4 |8 s; L' D8 O# C2 G7 kbbs.mocwww.comwhile(<IPC1>)
7 S* {; \6 v& E$ D5 V' ~: G{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" i' l" k6 N5 k" E# X# |# g
        @item=split(/:/,$_);
* l! J- x* ~* u5 ~( ?* ]9 W% x        if($line<=2)
- j+ g% W( @9 @! D. ^5 ybbs.mocwww.com        {
3 ~* X7 ^  P) K$ a2 ^  }* N妖城在线论坛                print IPC2 "$item[0]:$item[1]:$input:$item[3]";
& q0 X7 l0 D3 j, x, {  jbbs.mocwww.com        }bbs.mocwww.com3 j7 N1 r  E' \4 ^0 m4 V# b* z
        else魔力私服,最新魔力宝贝私服技术交流( z4 a* _9 H8 h+ w3 Z: x+ Q
        {魔力私服,最新魔力宝贝私服技术交流$ O5 V. K$ |( {" U2 u
                print IPC2 "$_";
0 x6 G, I+ y3 Obbs.mocwww.com        }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  J1 I. k1 a0 B5 \
        $line++;
- i1 q* u( k* o魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表}魔力私服,最新魔力宝贝私服技术交流  p! E9 s7 q" b- _  |
close(IPC1);
  {" M0 q% n. ]( t9 {—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートclose(IPC2);

+ R- Z- u" X8 l* _+ O
, p! v: k8 D: kbbs.mocwww.com[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]

TOP

很好 很强大``

TOP

修改那个不麻烦吧
% d3 r' _+ |6 t) Q* i. X3 u貌似这个工具没有必要
1 {6 T# j+ D0 D" r# C2 D妖城在线论坛不过还是顶啦

TOP

呵呵..谢谢咯...

2007年10月6日至今已过去十三个春夏秋冬,感谢妖友的一路陪伴!
2020年6月12日 By.xuyaoxy

TOP

看了,顶了!谢了!妖城在线论坛/ ~. I% r# w" P2 E7 Z% X
thanks~

TOP

看玩顶下妖城在线论坛  e! V& b' ]1 G; D( g$ @. r
2 B" r2 X( B0 u* P( @. d) L' d6 |
又荒度了3天

TOP

很不错,谢谢LZ!

TOP

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

TOP

发新话题