[PHP]代码

<?php  //搜索链接  function search_link($moviename)  {            //构造url，其中max-results可根据需要更改          $urlString = 'http://api.douban.com/movie/subjects?q='.$moviename.'&start-index=1&max-results=1&alt=json';          //print_r($urlString);          $urlString=mb_convert_encoding($urlString, "UTF-8", "GBK");//将Url转换为utf-8编码          $r = new HttpRequest($urlString,HttpRequest::METH_GET);//请求          $response = $r->send();          $result = $r->getResponseBody();          $obj = json_decode($result);//解析成json格式            if($entry = @$obj->{'entry'}){                  //搜索链接并存在数组中返回                  for($i = 0;$i<sizeof($entry);$i++){                          $link=$entry[$i]->{'link'};                           for($j = 0;$j<sizeof($link);$j++){                                $arr = (array)$link[$j];                                $key = array_search("self",$arr);                                if($key){                                 //判断key是否存在                                    $str = $arr["@href"].'?alt=json'; //构造返回链接的格式                                    break;                                }                           }                          $link_array[] = $str;                  }                  return $link_array;//返回链接          } else                  echo"Not Found!";    }    //查询链接并将各变量放入$GLOBAL 数组  function get_info($urlString)  {          $r = new HttpRequest($urlString,HttpRequest::METH_GET);          $response = $r->send();          $result = $r->getResponseBody();            //if..else.. 判断打开链接是否为空          if ($obj = json_decode($result)){              //将影片的信息放在全局数组中              $title = $obj->{'title'};              $author = $obj->{'author'};              $summary = $obj->{'summary'};              $ID=$obj->{'id'};              $link = $obj->{'link'};                $gd = (array)$obj->{'gd:rating'};                 $db_array = array();                $db = $obj->{'db:attribute'};              //将db:atribute中的值放进数组              foreach ($db as $value){                  $value_array = (array)($value);                  $v = $value_array["@name"];                  $k = $value_array["\$t"];                  if (array_key_exists("@lang",$value_array)){                      $lang=$value_array["@lang"];                      $k=$k.'['.$lang.']';                  }                         $db_array[$v][]=$k;               }              //设定对应数组的键值              @$db_array_key = array('【影片原名】','【别    名】','【导    演】','【编    剧】','【官方网站】','【IMDB链接】','【出品年代】',                                 '【国    家】','【电影类型】','【上映日期】','【放映长度】','【集    数】','【语    言】','【演    员】');              @$db_array_value = array($db_array["title"],$db_array["aka"],$db_array["director"],$db_array["writer"],$db_array["website"],                                   $db_array["imdb"],$db_array["year"],$db_array["country"],$db_array["movie_type"],$db_array["pubdate"],                                   $db_array["movie_duration"],$db_array["episodes"],$db_array["language"],$db_array["cast"]);              @$db_array = array_combine($db_array_key,$db_array_value);          }   else{                  echo "Empty link!";          }          $info=array("title"=>$title,"author"=>$author,"summary"=>$summary,"ID"=>$ID,"link"=>$link,"gd"=>$gd,"db_array"=>$db_array);          return $info;  }  //将影片信息写入文件       function write_info($fi,$info)            {                //fwrite($fi, "******");写入文件              fwrite($fi, "【影片原名】");              foreach ($info["title"] as $k=>$v)                      fwrite($fi,"$v\r\n");              fwrite($fi,"\r\n");                     fwrite($fi,"【出 品 人】");                foreach ($info["author"] as $value)                    foreach ($value as $key)                      foreach ($key as $v) {                        fwrite($fi,"$v\r\n");                      }              fwrite($fi,"\r\n");                         //db:attribute              foreach ($info["db_array"] as $key=>$value){                  if(count($value)){                          fwrite($fi,$key);                          if($value==$info["db_array"]['【演    员】']){                              foreach($value as $k=>$v)                                  fwrite($fi,"$v\r\n            ");                          }   else{                                  foreach($value as $k=>$v)                                      fwrite($fi,"$v  ");                                  fwrite($fi,"\r\n");                          }                  }              }              fwrite($fi,"\r\n");                 //影片简介              fwrite($fi, "【简    介】\r\n");              foreach ($info["summary"] as $k=>$v){                  fwrite($fi,"   $v \r\n");              }               fwrite($fi,"\r\n");                             //ID                fwrite($fi,"【I      D】");              foreach ($info["ID"] as $k=>$v){                  fwrite($fi,$v);              }              fwrite($fi,"\r\n");                 //链接                            fwrite($fi,"【链    接】\r\n");               foreach ($info["link"] as $value){                     foreach ($value as $k=>$v){                       fwrite($fi, "  $v  ");                  }                  fwrite($fi,"\r\n");              }              fwrite($fi,"\r\n");                 //评论                fwrite($fi,'【评    论】');               fwrite($fi,$info["gd"]["@numRaters"]);              fwrite($fi,"\r\n");               fwrite($fi,'【最高】');  fwrite($fi,$info["gd"]["@max"]);              fwrite($fi,"  【最低】");fwrite($fi,$info["gd"]["@min"]);              fwrite($fi,'  【平均】');fwrite($fi, $info["gd"]["@average"]);              fwrite($fi,"\r\n");   }  //在指定的文件夹中寻找电影并返回电影名  function find_dir($dir)  {      if(is_dir($dir)){                           //判断所给路径名是否为目录          if($fdir=opendir($dir)){                //打开目录              while(false!==($file=readdir($fdir))){              //遍历目录中的文件                  if ($file != "." && $file != "..")                       $files[]=$file;                 //将寻找到的文件放入数组并返回              }              closedir($fdir);              print_r($file);              return $files;          }         }  }  //将生成的txt文件放在指定的目录下  function write_to_dir($dir,$moviename)  {          if (is_dir($dir)){                                                      //判断所给路径名是否为目录          if($fdir=opendir($dir)){                                            //打开目录              while(false!==($file=readdir($fdir))){                          //遍历目录中的文件                    if ($file != '.' && $file != '..') {                        $dirname=$dir.'\\'.$file;                      if (is_dir($dirname)&&$file==$moviename) {                  //寻找指定的文件夹                          $filename=$dirname.'\\'.$moviename.'.txt';                           //if(!file_exists($filename)){                                                    if($fi=fopen($filename,'w+')){                       //打开指定文件，若不存在，建立文件并返回                                  closedir($fdir);                                  return $fi;                                 }else                                  echo"Fail to Open file!";                             //}                                                   } else                              echo "Dir Not Exists!";                               }                 }            } else {                          echo 'Fail to Open!';                             return;          }      }   else {                  echo 'Directory Not Exists!';                  return;      }  }    $dir = 'E:\film';  if($movienames = @find_dir($dir)){                              //在指定目录中获得电影名，进行搜索      foreach ($movienames as $key=>$moviename){          if($link_info = search_link($moviename)){                //搜索影片名              if ($fi=write_to_dir($dir,$moviename)){                 //写入指定文件夹                  fwrite($fi,"<Resources>\r\n");                  fwrite($fi,'<MesageBody>');                  fwrite($fi,"\r\n\r\n\r\n".'※※※※※※※※※※※※※※※※※※※※※　影片信息　※※※※※※※※※※※※※※※※※※※※※'."\r\n");                    foreach ($link_info as $k){                      $info=get_info($k);                             //获取链接信息                      write_info($fi,$info);                          //在txt文件中写入信息                      fwrite($fi,"*************************************************************************************************\r\n");                  }                  fclose($fi);//写入完成，关闭文件              }          } else              echo "Empty!";      }  }   else           echo "Movies Not Exists!";  ?>