error_reporting(2047);
/*
* Class IO (SNakeVil 03.25.040.( ). 🎜>* [說明]
* 本類別用於檔案系統的處理。
*
* [功能]
* **** list_dir($dir_path);
* 讀取指定目錄內容，並傳回內容陣列。
* $dir_path 字串，指定目錄路徑
* 若有錯誤回傳 FALSE，否則回傳
* array(
* "count"=>array("files","dirs",">* "count"=>array("files","dirs"," size"),
* "list"=>array(
* array("name","locate","type","size","last_access","last_change","last_modify"),
* ......
* )
* )
* ********
* ********
* ** ** seek_file($pattern, $dir_path, $seek_type, $sub_dir, $interal, $limit);
* 依據正規表示式條件，並在對應及特定層級的子目錄中搜尋符合的檔案、目錄。
* $pattern 符合 PERL 相容標準的正規表示式，無須添加 //，系統自行添加
* $seek_type 有 -1 0 1 三種可能值，且僅有文件夾，1 僅文件夾，1 僅文件夾兩者都包括
* $sub_dir 數字值，搜尋的子目錄深度，指定目錄不算，建議不要超過 5
* $interal 布爾值，為真則返回搜尋結果的詳細信息，否則只返回檔案名稱、類型及所在目錄
* $limit 數字值，搜尋結果限制，避免過度浪費系統資源
* 若有錯誤回傳 FALSE，否則回傳
* array(
* array(
* "name","locate","type"
* [,"size","last_access","last_change","last_modify"]
* ),
* .... ..
* )
* ********
* ********
* **** delete($path);
* 刪除指定對象，檔案或資料夾－包括內含子目錄和檔案的非空資料夾。
* $path 字串，指定要刪除的內容路徑，檔案或目錄皆可
* 如有錯誤中斷，傳回 FALSE，否則回傳 TRUE
* ******* *
* ********
* **** make_dir($path);
* 建立任何資料夾，相對或絕對路徑皆可，深層建立亦可。
* $path 字串，要建立的最終目錄路徑
* 如錯誤回傳 FALSE，否則回傳 TRUE
* ********
* ****** **
* **** verify_file($src, $dst, $interal);
* 使用 MD5 演算法比較兩個檔案是否相同。
* $src 字串，來源檔案路徑
* $dst 字串，目標檔案路徑
* $interal 布林值，對於大於 1M 檔案，可以設定為 FALSE伺服器負擔
* 若有錯誤回傳 FALSE，否則回傳 TRUE
* ********
* ********
* **** copy($ src_path, $dst_path);
* 對任意資料夾、檔案進行複製，相對或絕對路徑皆可，檔案複製完成後會進行效驗，檢查是否出錯資料錯誤。
* $src_path 字串，指定要複製的來源內容路徑，檔案或目錄皆可
* $dst_path 字串，指定要複製的目標內容路徑，檔案或目錄皆可，性質由 $src_path 決定，可為 $src_path 下層目錄
* 若有錯誤返回 FALSE，否則返回 TRUE
* ********
* ********
* **
* ********
* ** ** move($src_path, $dst_path);
* 對任意資料夾、檔案進行移動，相對或絕對路徑皆可，檔案移動完成後會進行效驗，檢查是否出錯資料錯誤。
* $src_path 字串，指定要移動的來源內容路徑，檔案或目錄皆可
* $dst_path 字串，指定要移動的目標內容路徑，檔案或目錄皆可，性質由 $src_path 決定，可為 $src_path 下層目錄
* 若有錯誤回傳 FALSE，否則回傳 TRUE
*
* [版權]
* 風雨明清(MSNM)), GSNake ，保留一切權力。
* 隨意使用，但請勿必保留下面的文本，謝謝！
*
* ============Z==================
* Class.IO.v1 .build040325
* for.PHP.v4.20
* 由SNakeVil
* (snakevil@51js, Snakevil@BU)
* -------- ------
* QQ:118824
* MSN:snakevil_@hotmail.com
* HP:
http://www . snakeville.com/ * ===========Z==================
*
* /
類IO {
var $error_id;
var $結果；
var $error_lated;
var $last_exist_dir;
$this->result = array();
$this->error_id = 0x0000;
$this->error_lated = "";
$this->last_exist_dir = "";回傳$ 這個;
}
function error_occur($error_id=0xffff,$error_lated="") { // ----0xffff---- 特定關鍵字，特定欄位值
if (is_int( $ error_id)) $this->error_id = $error_id; // 錯誤相關
$this->錯誤相關= $錯誤相關;
回傳錯誤； //預設值FALSE 預設值
}
function list_dir($dir_path=".") {
if (!is_dir($dir_path)) return $this-> , $dir_path); // ----0x0001-- -- 移除鍵盤
if (!$dir_handle=@opendir($dir_path)) return $this->error_occur(0x0002, $dir_path); // ----0x0002---- 預設值
$result = array(
"count" => array("files" => 0, "dirs" => 0, "size " =>0),
"list"=>array()
);
while (false!==($file_handle=readdir($dir_handle))) { // 預設!== 預設設定0 return FALSE default
if ($file_handle==" ." || $file_handle= ="..") 繼續； // 重設預設值
$temp = str_replace("", "/", realpath($dir_path));
$temp = substr($temp, -1)=="/" ? $temp : $temp."/";
$temp = array($temp, $file_handle);
$file_handle = $temp[0].$temp[1 ]; // 設定預設值
$temp = array(
"name" => $temp[1],
"locate" => $temp[0],
"type" = >@filetype($file_handle),
"last_access" => $file_handle),
"last_change" =>filectime($file_handle)
);
switch($temp["type"] ) {
case "file":
$temp["type"] = 1;
$結果["計數"]["檔案"] ;
$result["count"][ "size"] = $temp["size"];
休息；
case "dir":
$temp["type"] = 0;
$結果["計數"][ "目錄"];
休息；
預設值：//！ ！ ！如果你想要Win32，你也可以建立一個不同類型的鍵盤
$temp["type"] = -1;
}
$result["list"][] = $temp;
}
closedir($dir_handle);
unset($dir_out, $file_out, $temp);
clearstatcache(); // 回傳關鍵字
$turn $this->resultre = $ result;
}
function seek_file($pattern=".*",$dir_path=".",$seek_type=1,$sub_dir=0,$interal=false,$limit=100) {
/**規範一切可能的參數值 */
$pattern = "/".$pattern."/";
$seek_type = intval($seek_type);
$seek_type = intval($seek_type);
$seek_type = ($seek_type$sub_dir = abs(intval($sub_dir));
$interal = (bool)$interal;
$interal = (bool)$interal;
$inter p limit));
if ($limit==0) $limit = 100;
$sub_dir_list = array(array($dir_path)); // 將查詢目錄視為子目錄層級的第一層來對待
$result = array();
/* i 目前處理的子目錄層次，0 為指定目錄層，即只處理一目錄 */
for ($i=0;$iif (!isset($sub_dir_list[$i])) return $this->result = $result; // 如果某一層子目錄沒有設定，請說明實際目錄系統中無目錄，返回
/* k 每一子目錄層級中子目錄統計，j 當前處理序號 */
for ($j=0,$k=count($sub_dir_list[$i]);$ j$l = $this->list_dir($sub_dir_list[$i][$j]);
if (!$ l) return $this->result = $result; // 出現錯誤，則立即停止返回現有結果
$l = $l["list"];
/* n 每子目錄中文件、目錄、其他項目統計，m 為目前處理序號 */
for ($m=0,$n=count($l);$mif (count( $result)>=$limit) return $this->result = $result; // 如果要求數目已達到，則回傳
if ($l[$m]["type"]==0) $sub_dir_list[ $i 1][] = $l[$m]["locate"].$l[$m]["name"]; // 蒐集下一層子目錄資訊
$o = $l[$ m]["type"];
if ($o!=$seek_type&&($seek_type==1||$seek_type==0)) continue; // 忽略不符合要求的項目
elseif ($ o==-1&&$seek_type==-1) continue;
if (!preg_match($pattern, $l[$m]["name"])) continue; // 忽略不符合正規表示式的項目
$result[] = $interal ? $l[$m] : array("name" => $l[$m]["name"], "locate" => $l[$m][" locate"], "type" => $l[$m]["type"]);
}
}
}
unset($i, $j,$k, $ , $m, $n, $o, $sub_dir_list);
return $this->result = $result;
}
function
}
function
}
function
} if (!file_exists($path)) return $this->error_occur(0x0003, $path); // ----0x0003---- 指定物件不存在
if (is_dir($path)))))) 🎜>$path = str_replace("", "/", realpath($path));
$path = substr($path, -1)=="/" ? $path :$path."/ -1)=="/" ? $path :$path."/ ;
$sub_list = array(array($path));
for ($i=0;$iif (!isset($sub_list[$i])) break; // 探索最盡頭，取得該目錄下所有子目錄列表，並在刪除後刪除該目錄下刪除目錄
for ($j=0,$k=count($sub_list[$i]);$j$l = $this->list_dir($sub_list[$i][ $j]);
if (!$l) return $this->error_occur("", $sub_list[$i][$j]);
$l = $l["list"];
for ($m=0,$n=count($l);$m$o = $l[$m]["locate"].$l[ $m]["name"];
if ($l[$m]["type"]==0) $sub_list[$i 1][] = $o;
elseif (!@unlink ($o)) return $this->error_occur(0x0004, $o); // 刪除目錄下的每一個檔案
}
} } forfor($i=count($ sub_list)-1;$i>=0;$i--) // 逆回刪除目錄 for ($j=0,$k=count($sub_list[$i]);$jif (!@rmdir($sub_list[$i][$j])) return $this->error_occur(0x0005, $sub_list[$i] [$j]); // ----0x0005---- 目錄無權刪除 unset($i, $j, $k, $l, $m, $n, $o, $sub_list) ; return true; }elseif (@unlink($path)) return true;
else return $this->error_occur(0x0004, $path); // ----0x0004---- 檔案>
function generate_realpath($path="") {
if ($path==""||!is_string($path)) return $this->error_occur(0x0007,$5); ---0x0007---- 路徑參數錯誤
$path = preg_replace("/(?|]/", "", str_replace("", "/ ", $path)); // 規範路徑中多重可能性的符號
if (substr($path,1,1)==":") return $path; // !!!! Win32 平台的絕對路徑
elseif (substr($path,0,1)=="/") return substr(realpath("."), 0, 2).$path; // !!!! Win32 平台下的絕對路徑轉換
else {
if (substr($path,-1)=="/") $path = substr($path,0,-1); // 清除結尾可能的 / 符號
$path = preg_replace("//{2,}/", "/", $path); // 將 /// 諸如類似的相連符號簡化為一個
$path =expexplode("/ , $path); // 分割路徑
$cur_path = explode("/", str_replace("", "/", realpath(".")));
for ($i=0,$ j=count($path);$iif ($path[$i]=="..") array_pop($cur_path);
elseif ($path[ $i]=="."||$path[$i]==str_repeat(".", strlen($path[$i]))) continue; // 忽略無用的相對路徑位址 . 和 ... . 等
else array_push($cur_path, $path[$i]);
}
$path = implode("/", $cur_path); >return $path;
}
}
function make_dir($path="") {
if (!$path ;
$path = explode("/", $path);
$i = array($path[0]);
for ($i=0,$j=count($path) ,$k=array(),$l="";$iarray_push($k, $path[$i]);
$l = implode("/ ", $k);
if (!file_exists($l)) {
if ($this->last_exist_dir=="") $this->last_exist_dir = $l; mkdir($l)) return $this->error_occur(0x0008, $l); // ----0x0008---- 無法建立目錄
}
}
return
function verify_file($src="",$dst="",$interal=true) {
if (!file_exists($src)||!is_file($src)) return $ this->error_occur(0x000A, $src); // ----0x000A---- 指定物件非檔案
if (!file_exists($dst)||!is_file($dst)) return $this-return $this- >error_occur(0x000A, $dst);
$i = filesize($src);
if ($i!=filesize($dst)) {
unset($i! false;
}
if ($i>1024*1024*1024&&!$interal) { // 對於大於 1MB 🎜>return true;
}
unset($i);
if (md5_file($src)!=md5_file($dst)) return false;
函數copy($src_path="",$dst_path="") {
if (!file_exists($src_path)) return $this->error_occur(0x0003, $src_path);
if (!$dst_path=$this->generate_realpath($dst_path)) 返回false；
if (is_dir($src_path)) {
$this->last_exist_dir = "";目錄
if (!$this->make_dir($dst_path)) return false; // 建立目錄失敗
$src_path = str_replace("", "/", real8($src_path); $src_path = substr($src_path, -1)=="/" ? $src_path : $src_path."/";
$sub_list = array(array($ 0;$iif (!isset($sub_list[$i])) break;
for ($j=0,$k=count($sub_list [$i]);$j$l = $this->list_dir($sub_list[$我][$j]);
if (!$l) return $this->error_occurr(0x0003, $sub_list[$i][$j]);
$l = $l["列表"];
for ($m=0,$n=count($ l);$m$o = $l[$m]["locate"].$l[ $m]["姓名"];
if（$o ==$this->last_exist_dir）繼續； // 如果為上級目錄下游目錄複製，防止死循環
$p = str_replace(substr($src_path, 0, -1), $dst_path, $o);
if ($l[$m]["type"]==0) {
$sub_list[$i 1][] = $o;
if (!$this->make_dir($p )) 回傳false； // 每個子目錄包裝建立
} else { // 每個檔案複製
if ($this->verify_file($o, $p)) continue; / / 如果目標與來源兩個，不再複製
if (!copy($o,$p)||!$this->verify_file($o,$p)) return $this->error_occurr （0x0009， $o）； // ----0x0009---- 檔案移動失敗
}
}
}
}
unset($i, $j,$$k, , $m, $n、$o、$p、$sub_list);
回傳true；
} else {
if (!is_read($src_path)) return$this->error $src_path); // ----0x0006---- 來源檔案無權讀取
if ($this->verify_file($src_path,$dst_path)) return true;
$i = strrpos( $dst_path,"/");
$dst_path = array(substr($dst_path, 0, $i), substr($dst_path, $i 1));
未設定($i); >if (!$this->make_dir($dst_path[0])) 回傳false；
$dst_path = implode("/", $dst_path);
if (!copy($srcpath_),$st_path) ||!$this->verify_file($src_path,$dst_path)) return $this->error_occur(0x0009, $src_path);
傳回true；
}
move($src_path="",$dst_path="") {
if (!file_exists($src_path)) return $this->error_occurr( 0x0003, $src_path);
if ; this->generate_realpath($dst_path)) 回傳false；
if (is_dir($src_path)) {
$this->last_exist_dir = ""; )) 回傳false；
$src_path = str_replace("", "/", realpath($src_path));
$src_path = p($src_path $src_path."/";
$sub_list = array(array($src_path));
for ($i=0;$iif ( !isset($sub_list[$i])) break;
for ($j=0,$k=count($sub_list[$i]);$j$ l = $this->list_dir($sub_list[$我][$j]);
if (!$l) return $this->error_occurr(0x0003, $sub_list[$i][$j]);
$l = $l["列表"];
for ($m=0,$n=count($l);$m$o = $ l[$m]["locate"].$l[ $m]["姓名"];
if（$o==$this->last_exist_dir）繼續；
$p = str_replace(substr( $src_path, 0, -1), $dst_path, $o);
if ($l[$m]["type"]==0) {
$sub_list[$i 1][] = $o;
if (!$this->make_dir($p)) 回傳false；
}else {
if ($this->verify_file($o, $p)) 繼續;
if (!copy($o,$p)||!$this->verify_file($o,$p )) return $this->error_occur(0x0009, $o);
if (!@unlink($o)) return $this->error_occ}(0x0004, $o); $this->error_occ}(0x00004, 🎜>}
}
for($i=count($sub_list)-1;$i>=0;$i--)
for ($j =0,$k=count($ sub_list[$i]);$jif (strpos($this->last_exist_dir,$sub_list[$i][$j]) !==false) 續； // 對行動目標目錄的上層目錄，不予考慮刪除
elseif (!@rmdir($sub_list[$i][$j])) return $this->error_occur(0x0005, $sub_list[$i] ][$ j]);
unset($i, $j, $k, $l, $m, $n, $o, $p, $sub_list);
回傳true；
} else {
if (!is_read($src_path)) return $this->error_occur(0x0006, $src_path);
if ($this->verify_file($src_path,$dst_path🎜>if ($this->verify_file($src_path,$dst_path)) 返回； = strrpos($dst_path,"/");
$dst_path = array(substr($dst_path, 0, $i), substr($dst_path, $i 1));
未設定($i) ;
if (!$this->make_dir($dst_path[0])) 回傳false；
$dst_path = implode("/", .$dst_path); $dst_path)||!$this->verify_file($src_path,$dst_path)) return $this->error_occur(0x0009, $src_path);
if (@unlink($src_path)) 回傳true；否則回傳$this->error_occur(0x0004, $src_path);
}
}
}
?>
http://www.bkjia.com/PHPjc/317078.html
