发新话题
打印

[理论探讨] 上海怒江移动机房托管网络响应实测结果

上海怒江移动机房托管网络响应实测结果

转载请注明出自落伍im286.com: F3 D. a$ o1 ]0 ^9 z

9 g. Y# p- ]- k$ r4 C6 [) f刚委托某公司在在怒江移动机房托管了个机器, 为了看看速度如何, 写了个小程序测试了一下速度, 结果让我非常郁闷: 只要不是三更半夜, 居然好多时候是40ms,很多时候超过70ms ( 图片没法上传. 另: 我的网站还没有访问量)
" c' V  ?: \5 R' x+ e4 y9 {5 l+ J/ G0 f3 e# O- {" K
1) #> ping xxx.xxx.xxx.xxx -i 3  > pp &
# o! O* j& c+ p5 H" a8 B; w% d$ Y4 x$ |
2) 用如下的程序把结果图示出来, 横向一个点为半分钟的平均值, 纵向一个点为一毫秒
! v1 A' y( D' J6 R" m5 {- a' S7 M
<?php. Z- x+ O) J2 n7 K9 v% a1 b- w7 n

- f0 |2 U% d8 b1 D$fh = fopen('pp', "r");( o( C6 {8 A) [- H2 P# `
7 n2 f7 h2 }8 Y2 D3 d, S# F0 A
$timeout = 0 ;
/ o3 o8 Y) @$ ]$ W- }5 o% r! w
. a0 V7 ^# m7 J% r2 \& f! d1 f$x = 0 ;3 z& I8 J, g, u4 M  G9 R2 z
' G- [5 {6 T+ R% @! s) O& p
ini_set('memory_limit', '64M');
# y/ {4 s3 J$ ~/ B0 ^( }. H1 {. o9 w$ G
$img = imagecreatetruecolor( 9600, 100);
& w, d7 Y" @; l2 g5 s/ k7 d% @& w$ t! A7 B$ o
$bg = imagecolorallocate($img, 240, 240, 240);1 B$ A1 [4 a0 l) C$ N9 k# n" f

: C/ j# I5 G$ X0 B' Kimagefill($img, 0, 0, $bg);
0 V2 u" Q, C. Y5 U0 i. N& t! m( h- F6 n( g9 O
$c = imagecolorallocate($img, 255, 100, 0);) ^; u1 K& S6 b8 j; o$ z, a6 P
3 e5 w* f* N+ r( \
$total = 0 ;& N1 ?+ M/ v. q2 c( ~
$value = 0 ;! S! s; q: N  D. X1 C) G' l4 Y

4 u4 V0 }* w- h9 p; swhile(! feof($fh)) {
/ P5 R+ \: |0 ~! Y' ]$ {9 Y' `% A, s1 z, x; G& d$ P
        $str = fgets($fh);  u5 H0 _' {' P) d5 m, }$ ]

$ z/ J- |( A7 t2 g" [        if( preg_match("/time=(.*) ms$/", $str, $matches ) ) {! t( q2 i2 ]; M( K- B: d- r
# r( D* q* x8 a/ [2 z! N
                $time = $matches[1];) v+ I* R* ^2 Q* X6 O
                $time += 0 ;( y  y4 I5 L2 n& Q& k9 d0 q) d9 ?
, ^, w* R' W8 y$ A0 R
                if( $total > 0 && $total % 10 == 0 ) {
9 x, ?' Q( v+ E9 C5 i+ O. D. y' T$ ]" N) @" F: N9 y
                        $value = round($value/10);
/ d& G0 q8 y5 Y' m1 g4 t; l7 k/ h: W/ f  L3 G5 {. e
                        imagesetpixel($img, $x, $value, $c);  n: S- `7 |5 {( t' Q% z

. B  r/ I- f1 c+ n' q                        $value = 0 ;; L7 _5 b) }2 k" D8 S
                        $x++;$ D) q* x$ M# T7 H
                } else {; s# i/ ^1 k( g, _9 m7 n
                        $value += $time ;
: n, I' N7 x( N$ q                }
% C# W: p; c$ r5 G
: F- N+ o" Z1 h' o7 \                $total++;9 u* H& V1 [+ T0 U
        } else if( strstr($str, 'timeout') ) {
3 B1 @1 V4 k4 v# L/ P                $timeout++;
# l" L3 |5 n! a        }
9 U0 I8 ?+ r. s% H5 o2 B/ D}
/ q. d  u7 i7 f8 v! K+ |7 ~3 m' ?2 C3 J
imagepng($img, "ping.png");
+ u. d( t( j# Q+ t( S6 ?7 j) f" j+ B5 W1 }8 ?1 y  G
?>
发新话题