发新话题
打印

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

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

对于经常要更换IP(或域名)的服务器端,因为web验证的关系,需要经常手动更改PUK3、PUK3_CEN、Update等目录中的newest.txt文件,为此写了这个没什么技术含量的小perl程序,以简化手工操作。
  f. i, H( [7 J, n; ]3 }; @, d* ~—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート
/ p2 H; i. f3 R$ p执行代码:
. N" b: I- x/ n2 v9 m& H% {1. 把下列程序代码(红色字体部分)保存成一个文件,如addip.pl,并上传至服务器某目录下
: E" A' S5 `' o0 D( X, {& [妖城在线论坛2. 登陆服务器该目录,执行命令 perl addip.pl ,输入欲更改的IP地址(或域名),回车即可。
% i) {' Z2 {: `妖城在线论坛
8 V: t' @2 l8 ^( a—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート前提条件:魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 @& r9 j! [( |' o) U/ U0 l' Q6 n5 {
1. 服务器上安装了perl程序
: ~; ]1 r" }- J9 r—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2. web验证相关文件在/var/www/html目录下,若不是,只需更改脚本中相应目录即可。魔力私服,最新魔力宝贝私服技术交流& B( o4 }1 R" H3 \! a2 L% Q0 e
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" n" a+ C+ ?. ^1 ]: ~
代码如下:魔力私服,最新魔力宝贝私服技术交流2 U5 V- A$ u. c; Y, \$ z) x* q1 {
#!/usr/bin/perlbbs.mocwww.com/ h0 t( p( k, n$ O% y& v4 _

4 K6 v' W; @9 n( H! S: C2 Z妖城在线论坛print "Please input the new IP:";
! U9 P- v3 _, [0 B—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$input=<STDIN>;% f0 |+ R, }5 v. \: o* i
chop($input);bbs.mocwww.com$ z9 Z* S8 S+ V) @7 O+ U$ p

# j1 _0 v# Y' X6 {+ h7 u: B—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートsystem "mv /var/www/html/PUK3/newest.txt /var/www/html/PUK3/newest.txt.bak";
5 W, f8 _+ V% X9 iopen(IPA1,"/var/www/html/PUK3/newest.txt.bak");
) Z0 ~: j8 z6 @( ~* G. R4 x& h( Q6 b魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表open(IPA2,"> /var/www/html/PUK3/newest.txt");
0 L( l0 D" _, d  @7 c4 ~魔力私服,最新魔力宝贝私服技术交流$line=1;
. p7 J. e, B8 x: w8 Z, q9 i妖城在线论坛while(<IPA1>)- b9 y" D/ h1 ^' k5 h* L) N
{3 K) s# M+ z6 l* W' M
        @item=split(/:/,$_);) Q  @. ]3 o' l- c9 V+ \
        if($line<=2)
) Z4 k9 h; [2 |% J) w—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート        {
. `; L7 J7 O7 `; l4 g# d魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表                print IPA2 "$item[0]:$item[1]:$input:$item[3]";
5 }) N3 C, O0 O7 K8 C/ T        }" z  W. u1 S3 o1 S1 C# p+ x
        else
7 L( x9 y" q( P6 l—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート        {
* d8 G' f" I- q5 S6 qbbs.mocwww.com                print IPA2 "$_";
# c* X+ [- l/ i* c* E4 Xbbs.mocwww.com        }3 ?* N3 ]( x/ H- w
        $line++;
+ O" z7 r4 ?/ ebbs.mocwww.com}
; T* ]+ W1 A6 U! a—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートclose(IPA1);
: U, u: N$ _$ u# T* I$ ?0 ^妖城在线论坛close(IPA2);妖城在线论坛6 ^; m& r) a; F" u4 S$ j

$ X7 r% M% W8 s! I: l* x妖城在线论坛system "mv /var/www/html/PUK3_CEN/newest.txt /var/www/html/PUK3_CEN/newest.txt.bak";
+ w& L2 N! U) y. t; e% fbbs.mocwww.comopen(IPB1,"/var/www/html/PUK3_CEN/newest.txt.bak");% o3 X* R1 A, e3 \  D: ^
open(IPB2,"> /var/www/html/PUK3_CEN/newest.txt");
" e4 C! J* T3 H& e3 ubbs.mocwww.com$line=1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  T4 {5 u7 B9 J, ?- v0 H
while(<IPB1>)bbs.mocwww.com% l3 L# f0 y6 C, x7 v' h
{
) R  G* [: s; u2 hbbs.mocwww.com        @item=split(/:/,$_);妖城在线论坛9 ]6 H- E8 |# E7 I+ N1 j
        if($line<=2)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  Z$ b! p* L4 @1 Z" Z' R
        {
! }9 @0 O4 P% m! |" z7 zbbs.mocwww.com                print IPB2 "$item[0]:$item[1]:$input:$item[3]";
" E- T! V- [  ^5 \妖城在线论坛        }—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; u5 q% G4 N; s6 |
        else魔力私服,最新魔力宝贝私服技术交流: [% V5 i7 q0 q5 ^# _  D
        {
, O  M/ J. _, [魔力私服,最新魔力宝贝私服技术交流                print IPB2 "$_";
6 V: u- p* p" T1 Q% V& K6 bbbs.mocwww.com        }
0 \3 G: ~( `  V4 U. h—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート        $line++;妖城在线论坛$ H* z6 o, e! D- v6 n
}
, c: W* h! E+ ]3 ]& b2 s魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表close(IPB1);
: `- ]: V* V3 ?# \# v—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートclose(IPB2);
9 g1 e; J; c: i0 @魔力私服,最新魔力宝贝私服技术交流
* g0 b1 L1 f/ W: V/ @8 w1 k$ R3 ysystem "mv /var/www/html/Update/info.txt /var/www/html/Update/info.txt.bak";
8 C( C& w! L% d% N" ], @妖城在线论坛open(IPC1,"/var/www/html/Update/info.txt.bak");
2 ^! O) r8 e. j4 J- Wbbs.mocwww.comopen(IPC2,"> /var/www/html/Update/info.txt");妖城在线论坛8 }$ I0 g( X" @
$line=1;
' ~6 w- l+ r, a1 Ebbs.mocwww.comwhile(<IPC1>)( F; y' U* {0 w( B/ r( o
{—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) E5 C  J# k; z
        @item=split(/:/,$_);
0 r, z! S* x3 V" q% h3 V5 C+ I6 P) \7 H        if($line<=2)
. a! `4 W0 l8 M, r% Y1 I7 _魔力私服,最新魔力宝贝私服技术交流        {4 m/ K- {* x, T
                print IPC2 "$item[0]:$item[1]:$input:$item[3]";魔力私服,最新魔力宝贝私服技术交流1 D( k8 v; \0 e& h
        }
. e$ n- ~- G* d魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表        else
9 ~: K' d! F8 A$ P# H        {
2 }" i% H# j8 n" }2 A—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート                print IPC2 "$_";
8 V$ e2 s8 x( i! C% g) z        }魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ R+ M" x( M% G  y$ k# x
        $line++;妖城在线论坛% O; E# l) a% ]
}
7 f' T6 O9 p. J9 E3 C7 t( U: @close(IPC1);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 Z* q  T6 G9 ~
close(IPC2);
妖城在线论坛7 e4 C. \1 R5 {# }6 v3 D$ ^
魔力私服,最新魔力宝贝私服技术交流. r* \* v+ g  N
[ 本帖最后由 asdf1234 于 2008-1-1 13:20 编辑 ]

TOP

很好 很强大``

TOP

修改那个不麻烦吧—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, u9 m7 e4 T9 e& H2 H" [2 a$ y
貌似这个工具没有必要
, N: f; |( u  W9 _9 D9 i' t8 b2 @不过还是顶啦

TOP

呵呵..谢谢咯...

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

TOP

看了,顶了!谢了!
# t# U5 n* ]: N. Kbbs.mocwww.comthanks~

TOP

看玩顶下妖城在线论坛! c# [" _7 u( w

+ w8 {, [  W. z2 Nbbs.mocwww.com又荒度了3天

TOP

很不错,谢谢LZ!

TOP

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

TOP

发新话题