PHP program code for concurrently obtaining (stream_select) information

& Lt ;? Php $ events; if (array_key_exists (url, $ _ GET) {$ url $ _ GET [url] ;}$ hostsarray (www.xunlei.com, www.qq.com, www.163.com, www.baidu.com, www.kaixin.com, vip. xun

2. $ Url = "www.ite5e.com ";
3. If (array_key_exists (url, $ _ GET )){
4. $ Url = $ _ GET [url];
5. }
6. $ Hosts = array ("www.xunlei.com", "www.qq.com", "www.163.com", "www.baidu.com", "www.kaixin.com", "vip.xunlei.com ");
7. # $ Hosts = array ($ url );
9. $ Timeout = 5;
10. $ Status = array ();
11. $ Retdata = array ();
12. $ Sockets = array ();
13. $ E = array ();
14. /* Initiate connections to all the hosts simultaneously */
15. Foreach ($ hosts as $ id => $ host ){
16. $ Errno = 0;
17. $ Errstr = "";
18. $ S = stream_socket_client ("$ host: 80", $ errno, $ errstr, $ timeout, STREAM_CLIENT_ASYNC_CONNECT | STREAM_CLIENT_CONNECT );
19. If ($ s ){
20. $ Sockets [$ id] = $ s;
21. $ Status [$ id] = "in progress ";
22. } Else {
23. $ Status [$ id] = "failed, $ errno $ errstr ";
24. }
25. $ Retdata [$ id] =;
26. }
27. /* Now, wait for the results to come back in */
28. While (count ($ sockets )){
29. $ Read = $ write = $ sockets;
30. /* This is the magic function-explained below */
31. $ N = stream_select ($ read, $ write, $ e, $ timeout );
32. If ($ n> 0 ){
33. /* Readable sockets either have data for us, or are failed connection attempts */
34. Foreach ($ read as $ r ){
35. $ Id = array_search ($ r, $ sockets );
36. $ Data = fread ($ r, 8192 );
37. If (strlen ($ data) = 0 ){
38. If ($ status [$ id] = "in progress "){
39. $ Status [$ id] = "failed to connect ";
40. }
41. Fclose ($ r );
42. Unset ($ sockets [$ id]);
43. } Else {
44. $ Retdata [$ id]. = $ data;
45. }
46. }
47. /* Writeable sockets can accept an HTTP request */
48. Foreach ($ write as $ w ){
49. If (! Is_resource ($ w) continue;
50. $ Id = array_search ($ w, $ sockets );
51. Fwrite ($ w, "GET/HTTP/1.0 Host:". $ hosts [$ id]. "");
52. $ Status [$ id] = "waiting for response ";
53. }
54. } Else {
55. /* Timed out waiting; assume that all hosts associated
56. * With $ sockets are faulty */
57. Foreach ($ sockets as $ id => $ s ){
58. $ Status [$ id] = "timed out". $ status [$ id];
59. }
60. Break;
61. }
62. }
63. Foreach ($ hosts as $ id => $ host ){
64. # Echo "Host: $ host ";
66. # Echo "Status:". $ status [$ id]. "";
68. # Echo "Retdata:". $ retdata [$ id]. "";
70. $ Strs = explode ("", $ retdata [$ id], 2 );
71. Echo isset ($ strs [1])? $ Strs [1]: $ retdata [$ id];
72. }
73. Function debug ($ I ){
74. Var_dump ($ I );
75. Var_dump (gettype ($ I ));
76. Var_dump (is_resource ($ I ));
77. }
78. ?>