Erlang中国|Erlang论坛|Erlang社区

 

 

搜索
Erlang中国 Erlang论坛 PHP开发 PHP 抓取网页内容的几个函数
查看: 944|回复: 4
go

PHP 抓取网页内容的几个函数

Rank: 7Rank: 7Rank: 7

ming 发表于 2011-1-25 15:32 |显示全部帖子
稍微有点意义的函数是:get_content_by_socket(), get_url(), get_content_url(), get_content_object 几个函数,也许能够给你点什么想法。
  1. <?php

  2. //获取所有内容url保存到文件
  3. function get_index($save_file, $prefix="index_"){
  4. $count = 68;
  5. $i = 1;
  6. if (file_exists($save_file)) @unlink($save_file);
  7. $fp = fopen($save_file, "a+") or die("Open ". $save_file ." failed");
  8. while($i<$count){
  9. $url = $prefix . $i .".htm";
  10. echo "Get ". $url ."...";
  11. $url_str = get_content_url(get_url($url));
  12. echo " OKn";
  13. fwrite($fp, $url_str);
  14. ++$i;
  15. }
  16. fclose($fp);
  17. }

  18. //获取目标多媒体对象
  19. function get_object($url_file, $save_file, $split="|--:**:--|"){
  20. if (!file_exists($url_file)) die($url_file ." not exist");
  21. $file_arr = file($url_file);
  22. if (!is_array($file_arr) || empty($file_arr)) die($url_file ." not content");
  23. $url_arr = array_unique($file_arr);
  24. if (file_exists($save_file)) @unlink($save_file);
  25. $fp = fopen($save_file, "a+") or die("Open save file ". $save_file ." failed");
  26. foreach($url_arr as $url){
  27. if (empty($url)) continue;
  28. echo "Get ". $url ."...";
  29. $html_str = get_url($url);
  30. echo $html_str;
  31. echo $url;
  32. exit;
  33. $obj_str = get_content_object($html_str);
  34. echo " OKn";
  35. fwrite($fp, $obj_str);
  36. }
  37. fclose($fp);
  38. }

  39. //遍历目录获取文件内容
  40. function get_dir($save_file, $dir){
  41. $dp = opendir($dir);
  42. if (file_exists($save_file)) @unlink($save_file);
  43. $fp = fopen($save_file, "a+") or die("Open save file ". $save_file ." failed");
  44. while(($file = readdir($dp)) != false){
  45. if ($file!="." && $file!=".."){
  46. echo "Read file ". $file ."...";
  47. $file_content = file_get_contents($dir . $file);
  48. $obj_str = get_content_object($file_content);
  49. echo " OKn";
  50. fwrite($fp, $obj_str);
  51. }
  52. }
  53. fclose($fp);
  54. }

  55. //获取指定url内容
  56. function get_url($url){
  57. $reg = '/^http:\/\/[^\/].+$/';
  58. if (!preg_match($reg, $url)) die($url ." invalid");
  59. $fp = fopen($url, "r") or die("Open url: ". $url ." failed.");
  60. while($fc = fread($fp, 8192)){
  61. $content .= $fc;
  62. }
  63. fclose($fp);
  64. if (empty($content)){
  65. die("Get url: ". $url ." content failed.");
  66. }
  67. return $content;
  68. }

  69. //使用socket获取指定网页
  70. function get_content_by_socket($url, $host){
  71. $fp = fsockopen($host, 80) or die("Open ". $url ." failed");
  72. $header = "GET /".$url ." HTTP/1.1rn";
  73. $header .= "Accept: */*rn";
  74. $header .= "Accept-Language: zh-cnrn";
  75. $header .= "Accept-Encoding: gzip, deflatern";
  76. $header .= "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; InfoPath.1; .NET CLR 2.0.50727)rn";
  77. $header .= "Host: ". $host ."rn";
  78. $header .= "Connection: Keep-Alivern";
  79. //$header .= "Cookie: cnzz02=2; rtime=1; ltime=1148456424859; cnzz_eid=56601755-rnrn";
  80. $header .= "Connection: Closernrn";

  81. fwrite($fp, $header);
  82. while (!feof($fp)) {
  83. $contents .= fgets($fp, 8192);
  84. }
  85. fclose($fp);
  86. return $contents;
  87. }

  88. //获取指定内容里的url
  89. function get_content_url($host_url, $file_contents){

  90. //$reg = '/^(#|javascript.*?|ftp://.+|http://.+|.*?href.*?|play.*?|index.*?|.*?asp)+$/i';
  91. //$reg = '/^(down.*?.html|d+_d+.htm.*?)$/i';
  92. $rex = "/([hH][rR][eE][Ff])s*=s*['"]*([^>'"s]+)["'>]*s*/i";
  93. $reg = '/^(down.*?.html)$/i';
  94. preg_match_all ($rex, $file_contents, $r);
  95. $result = ""; //array();
  96. foreach($r as $c){
  97. if (is_array($c)){
  98. foreach($c as $d){
  99. if (preg_match($reg, $d)){ $result .= $host_url . $d."n"; }
  100. }
  101. }
  102. }
  103. return $result;
  104. }

  105. //获取指定内容中的多媒体文件
  106. function get_content_object($str, $split="|--:**:--|"){
  107. $regx = "/hrefs*=s*['"]*([^>'"s]+)["'>]*s*(<b>.*?</b>)/i";
  108. preg_match_all($regx, $str, $result);

  109. if (count($result) == 3){
  110. $result[2] = str_replace("<b>多媒体: ", "", $result[2]);
  111. $result[2] = str_replace("</b>", "", $result[2]);
  112. $result = $result[1][0] . $split .$result[2][0] . "n";
  113. }
  114. return $result;
  115. }

  116. ?>
复制代码


Archiver|Erlang中国|Erlang论坛|Erlang中文

GMT+8, 2012-2-23 11:01 , Processed in 0.026913 second(s), 15 queries .

Powered by Discuz! X1.5

© 2001-2010 Comsenz Inc.