WebSVN – php-qbpwcf – Diff – /trunk/usr/lib64/qbpwcf/parser.php

 <?php
 /*
 	QBPWCF, Quick Build PHP website Component base on Fedora Linux.
-    Copyright (C) 2015~2024 Min-Jhin,Chen
+    Copyright (C) 2014~2025 MIN ZHI, CHEN
     This file is part of QBPWCF.
     QBPWCF is free software: you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
 		#回傳結果
 		return $result;
 		}#function __callStatic end
 	/*
 	#函式說明:
 	#解析 ss 指令的輸出
 	#回傳結果:
 	#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
 	#無.
 	#備註:
 	#無.
 	*/
 	public static function ss(&$conf){
 		#初始化要回傳的結果
 		$result=array();
 		#取得當前執行的函數名稱
 		$result["function"]=__FUNCTION__;
 		#如果 $conf 不為陣列
 		if(gettype($conf)!="array"){
 			#設置執行失敗
 			$result["status"]="false";
 			#設置執行錯誤訊息
 			$result["error"][]="\$conf變數須為陣列形態";
 			#如果傳入的參數為 null
 			if($conf==null){
 				#設置執行錯誤訊息
 				$result["error"][]="\$conf變數不得為null,請檢查函數「".$result["function"]."」的參數設置有無正確!";
 				}#if end
 			#回傳結果
 			return $result;
 			}#if end
 		#取得參數
 		$result["argu"]=$conf;
 		#函式說明:
 		#檢查必填與可省略的參數，可省略參數可指定預設要給與什麼數值內容.
 		#回傳結果:
 		#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
 		#$result["error"],執行不正常結束的錯訊息陣列.
 		#array_keys=>http://php.net/manual/en/function.array-keys.php
 		#備註:
 		#無.
 		$checkArguments=variableCheck::checkArguments($conf["variableCheck::checkArguments"]);
 		unset($conf["variableCheck::checkArguments"]);
 		#如果執行失敗
 		if($checkArguments["status"]==="false"){
 			#設置執行失敗
 			$result["status"]="false";
 			#設置錯誤訊息
 			$result["error"]=$checkArguments;
 			#回傳結果
 			return $result;
 			}#if end
 		#如果參數檢查不通過
 		if($checkArguments["passed"]==="false"){
 			#設置執行失敗
 			$result["status"]="false";
 			#設置錯誤訊息
 			$result["error"]=$checkArguments;
 			#回傳結果
 			return $result;
 			}#if end
 		#取得 header
 		$headerStr=$conf["input"][0];
 		#移除標題列
 		unset($conf["input"][0]);
 		#解析 header
 		#Netid                     Recv-Q                      Send-Q                                                                             Local Address:Port                                             Peer Address:Port
 		#Netid State  Recv-Q Send-Q                                   Local Address:Port        Peer Address:PortProcess
 		#函式說明:
 		#將固定格式的字串分開,並回傳分開的結果.
 		#回傳結果:
 		#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
 		#無.
 		#備註:
 		#無.
 		$spiltString=stringProcess::spiltString($conf["stringProcess::spiltString"]);
 		unset($conf["stringProcess::spiltString"]);
 		#debug
 		#var_dump(__LINE__,$spiltString);
 		#如果執行失敗
 		if($spiltString["status"]==="false"){
 			#設置執行失敗
 			$result["status"]="false";
 			#設置錯誤訊息
 			$result["error"]=$spiltString;
 			#回傳結果
 			return $result;
 			}#if end
 		#如果執行失敗
 		if($spiltString["dataCounts"]<=1){
 			#設置執行失敗
 			$result["status"]="false";
 			#設置錯誤訊息
 			$result["error"]=$spiltString;
 			#回傳結果
 			return $result;
 			}#if end
 		#初始化儲存欄位名稱的變數
 		$result["columns"]=array();
 		#針對可能的欄位名稱
 		for($i=0;$i<count($spiltString["dataArray"]);$i++){
 			#debug
 			#var_dump($result["columns"]);
 			#取得該段內容
 			$column=$spiltString["dataArray"][$i];
 			#如果欄位開頭為空格
 			while(strpos($column," ")===0){
 				#剔除開頭的空格
 				$column=substr($column,1);
 				}#while end
 			#如果有下一個欄位
 			if(isset($spiltString["dataArray"][$i+1])){
 				#如果下一個不是完整的欄位名稱
 				if(strpos($spiltString["dataArray"][$i+1],":")!==false){
 					#更新欄位名稱
 					$column=$column." ".$spiltString["dataArray"][$i+1];
 					#跳過下個欄位
 					$i=$i+1;
 					}#if end
 				}#if end
 			#如果需要判斷
 			if(strlen($column)>=strlen("Process")){
 				#函式說明:
 				#取得符合特定字首與字尾的字串
 				#回傳結果:
 				#$result["status"]，若爲"true"則代表執行正常；若爲"false"則代表執行失敗。
 				#$result["function"],當前執行的函數名稱.
 				#str_spilt(),可以將字串依照字母分割成一個個陣列字串。
 				#備註:
 				#無.
 				$getMeetConditionsString=search::getMeetConditionsString($conf["search::getMeetConditionsString"]);
 				unset($conf["search::getMeetConditionsString"]);
 				#debug
 				#var_dump(__LINE__,$getMeetConditionsString);
 				#如果執行失敗
 				if($getMeetConditionsString["status"]==="false"){
 					#設置執行失敗
 					$result["status"]="false";
 					#設置錯誤訊息
 					$result["error"]=$getMeetConditionsString;
 					#回傳結果
 					return $result;
 					}#if end
 				#如果欄位名稱結尾為 "Process"
 				if($getMeetConditionsString["founded"]==="true"){
 					#儲存欄位名稱
 					$result["columns"][]=$getMeetConditionsString["content"];
 					#儲存欄位名稱底下資料用於解析資料位置的資訊
 					$result["addrForParseContet"][$getMeetConditionsString["content"]]=strpos($headerStr,$getMeetConditionsString["content"]);
 					#儲存欄位名稱
 					$result["columns"][]="Process";
 					#儲存欄位名稱底下資料用於解析資料位置的資訊
 					$result["addrForParseContet"]["Process"]=strpos($headerStr,"Process");
 					#換下一個
 					continue;
 					}#if end
 				}#if end
 			#儲存欄位名稱
 			$result["columns"][]=$column;
 			#儲存欄位名稱底下資料用於解析資料位置的資訊
 			$result["addrForParseContet"][$column]=strpos($headerStr,$column);
 			#debug
 			#var_dump($result["addrForParseContet"]);
 			}#for end
 		#欄位的計數
 		$columnCount=count($result["columns"]);
 		#debug
 		#var_dump(__LINE__,$result);
 		#break point
 		#exit;
 		#針對每列內容:
 		#可能為:
 		#"nl    UNCONN 0      0                                                    0:47                      *"
 		#"tcp   LISTEN 0      128                                        169.254.1.1:22               0.0.0.0:*    users:(("sshd",pid=2920,fd=3))"
 		#“nl    UNCONN 0      0                                                   18:0                       *"
 		foreach($conf["input"] as $line){
 			#debug
 			#var_dump(__LINE__." ".$line);
 			#針對每個欄位
 			for($i=0;$i<$columnCount;$i++){
 				#取得欄位名稱
 				$columnName=$result["columns"][$i];
 				#debug
 				#var_dump(__LINE__." ".$columnName);
 				#取得參考的位置
 				$refAddr=$result["addrForParseContet"][$columnName];
 				#若是 "Process" 欄位
 				if($columnName==="Process"){
 					#更新資料的起始點
 					$refAddr=$refAddr+1;
 					#抓取要解析的process字串
 					$proStr=substr($line,$refAddr);
 					#debug
 					#var_dump(__LINE__,$proStr);
 					#users:(("httpd",pid=3065,fd=4),("httpd",pid=1602,fd=4),("httpd",pid=1601,fd=4),("httpd",pid=1600,fd=4),("httpd",pid=1526,fd=4))
 					#函式說明:
 					#取得符合特定字首與字尾的字串
 					#回傳結果:
 					#$result["status"]，若爲"true"則代表執行正常；若爲"false"則代表執行失敗。
 					#$result["function"],當前執行的函數名稱.
 					$conf["search::getMeetConditionsString"]["tailWord"]=")";
 					#參考資料:
 					#str_spilt(),可以將字串依照字母分割成一個個陣列字串。
 					#備註:
 					#無.
 					#debug
 					#var_dump($conf["search::getMeetConditionsString"]);
 					$getMeetConditionsString=search::getMeetConditionsString($conf["search::getMeetConditionsString"]);
 					unset($conf["search::getMeetConditionsString"]);
 					#如果執行失敗
 					if($getMeetConditionsString["status"]==="false"){
 						#設置執行失敗
 						$result["status"]="false";
 						#設置錯誤訊息
 						$result["error"]=$getMeetConditionsString;
 						#回傳結果
 						return $result;
 						}#if end
 					#如果沒有符合的關鍵字
 					if($getMeetConditionsString["founded"]==="false"){
 						#用欄位名稱來儲存資料
 						$result["content"][$columnName][]=array();
 						#跳到下個欄位
 						continue;
 						}#if end
 					#("httpd",pid=3065,fd=4),("httpd",pid=1602,fd=4),("httpd",pid=1601,fd=4),("httpd",pid=1600,fd=4),("httpd",pid=1526,fd=4)
 					#用 "\"" 來進行切割
 					#$getMeetConditionsString["content"];
 					#函式說明:
 					#將固定格式的字串分開,並回傳分開的結果.
 					#回傳結果:
 					#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
 					#$result["error"],錯誤訊息陣列
 					#無.
 					#備註:
 					#無.
 					$spiltString=stringProcess::spiltString($conf["stringProcess::spiltString"]);
 					unset($conf["stringProcess::spiltString"]);
 					#如果執行失敗
 					if($spiltString["status"]==="false"){
 						#設置執行失敗
 						$result["status"]="false";
 						#設置錯誤訊息
 						$result["error"]=$spiltString;
 						#回傳結果
 						return $result;
 						}#if end
 					#如果沒有符合的關鍵字
 					if($spiltString["found"]==="false"){
 						#設置執行失敗
 						$result["status"]="false";
 						#設置錯誤訊息
 						$result["error"]=$spiltString;
 						#回傳結果
 						return $result;
 						}#if end
 					#儲存process陣列的變數
 					$proArray=array();
 					#針對奇數的內容
 					for($j=1;$j<$spiltString["dataCounts"];$j=$j+2){
 						#儲存 prcess name
 						$proArray[]=$spiltString["dataArray"][$j];
 						}#if end
 					#用欄位名稱來儲存資料
 					$result["content"][$columnName][]=$proArray;
 					#換下一個欄位資料
 					continue;
 					}#if end
 				#若是 "Local Address:Port" 欄位
 				if($columnName==="Local Address:Port"){
 					#從 $refAddr 往左右抓內容
 					#抓取左邊的內容
 					$leftStr=substr($line,0,$refAddr+strlen("Local Address"));
 					#函式說明:
 					#將字串特定關鍵字與其前面的內容剔除
 					#回傳結果:
 					#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
 					#$result["error"],錯誤訊息陣列.
 					#$result["warning"],警告訊息鎮列.
 					#$result["founded"],有無找到定字串"true"代表有,"false"代表沒有.
 					#$result["function"],當前執行的函數名稱.
 					#$result["oriStr"],要處理的原始字串內容.
 					#$result["content"],處理好的的字串內容.
 					#必填參數:
 					#$conf["stringIn"],字串,要處理的字串.
 					$conf["stringProcess::delStrBeforeKeyWord"]["stringIn"]=$leftStr;
 					#$conf["keyWord"],字串,特定字串.
 					$conf["stringProcess::delStrBeforeKeyWord"]["keyWord"]=" ";
 					#無.
 					#備註:
 					#無.
 					$delStrBeforeKeyWord=stringProcess::delStrBeforeKeyWord($conf["stringProcess::delStrBeforeKeyWord"]);
 					unset($conf["stringProcess::delStrBeforeKeyWord"]);
 					#如果執行失敗
 					if($delStrBeforeKeyWord["status"]==="false"){
 						#設置執行失敗
 						$result["status"]="false";
 						#設置錯誤訊息
 						$result["error"]=$delStrBeforeKeyWord;
 						#回傳結果
 						return $result;
 						}#if end
 					#取得資料的左半部
 					$leftDataStr=$delStrBeforeKeyWord["content"];
 					#抓取右邊的內容
 					$rightStr=substr($line,$refAddr+strlen("Local Address")+1);
 					#函式說明:
 					#將字串特定關鍵字與其後面的內容剔除
 					#回傳結果:
 					#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
 					#$result["error"],錯誤訊息陣列.
 					#無.
 					#備註:
 					#無.
 					$delStrAfterKeyWord=stringProcess::delStrAfterKeyWord($conf["stringProcess::delStrAfterKeyWord"]);
 					unset($conf["stringProcess::delStrAfterKeyWord"]);
 					#如果執行失敗
 					if($delStrAfterKeyWord["status"]==="false"){
 						#設置執行失敗
 						$result["status"]="false";
 						#設置錯誤訊息
 						$result["error"]=$delStrAfterKeyWord;
 						#回傳結果
 						return $result;
 						}#if end
 					#取得資料的右半部
 					$rightDataStr=$delStrAfterKeyWord["content"];
 					#用欄位名稱來儲存資料
 					$result["content"][$columnName][]=array("addr"=>$leftDataStr,"port"=>$rightDataStr);
 					#換下一個欄位資料
 					continue;
 					}#if end
 				#若是 "Peer Address:Port" 欄位
 				if($columnName==="Peer Address:Port"){
 					#從 $refAddr 往左右抓內容
 					#抓取左邊的內容
 					$leftStr=substr($line,0,$refAddr+strlen("Peer Address"));
 					#debug
 					#var_dump(__LINE__,$leftStr);
 					#函式說明:
 					#將字串特定關鍵字與其前面的內容剔除
 					#回傳結果:
 					#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
 					#$result["error"],錯誤訊息陣列.
 					#$result["warning"],警告訊息鎮列.
 					#$result["founded"],有無找到定字串"true"代表有,"false"代表沒有.
 					#$result["function"],當前執行的函數名稱.
 					#$result["oriStr"],要處理的原始字串內容.
 					#$result["content"],處理好的的字串內容.
 					#必填參數:
 					#$conf["stringIn"],字串,要處理的字串.
 					$conf["stringProcess::delStrBeforeKeyWord"]["stringIn"]=$leftStr;
 					#$conf["keyWord"],字串,特定字串.
 					$conf["stringProcess::delStrBeforeKeyWord"]["keyWord"]=" ";
 					#無.
 					#備註:
 					#無.
 					$delStrBeforeKeyWord=stringProcess::delStrBeforeKeyWord($conf["stringProcess::delStrBeforeKeyWord"]);
 					unset($conf["stringProcess::delStrBeforeKeyWord"]);
 					#debug
 					#var_dump(__LINE__,$delStrBeforeKeyWord);
 					#如果執行失敗
 					if($delStrBeforeKeyWord["status"]==="false"){
 						#設置執行失敗
 						$result["status"]="false";
 						#設置錯誤訊息
 						$result["error"]=$delStrBeforeKeyWord;
 						#回傳結果
 						return $result;
 						}#if end
 					#如果沒有找到" "
 					if($delStrBeforeKeyWord["founded"]==="false"){
 						#用欄位名稱來儲存資料,"*"代表沒有資料
 						$result["content"][$columnName][]="*";
 						#換下一個欄位資料
 						continue;
 						}#if end
 					#取得資料的左半部
 					$leftDataStr=$delStrBeforeKeyWord["content"];
 					#抓取右邊的內容
 					$rightStr=substr($line,$refAddr+strlen("Peer Address")+1);
 					#debug
 					#var_dump(__LINE__,$rightStr);
 					#函式說明:
 					#將字串特定關鍵字與其後面的內容剔除
 					#回傳結果:
 					#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
 					#$result["error"],錯誤訊息陣列.
 					#無.
 					#備註:
 					#無.
 					$delStrAfterKeyWord=stringProcess::delStrAfterKeyWord($conf["stringProcess::delStrAfterKeyWord"]);
 					unset($conf["stringProcess::delStrAfterKeyWord"]);
 					#debug
 					#var_dump(__LINE__,$delStrBeforeKeyWord);
 					#如果執行失敗
 					if($delStrAfterKeyWord["status"]==="false"){
 						#設置執行失敗
 						$result["status"]="false";
 						#設置錯誤訊息
 						$result["error"]=$delStrAfterKeyWord;
 						#回傳結果
 						return $result;
 						}#if end
 					#如果沒有找到" "
 					if($delStrBeforeKeyWord["founded"]==="false"){
 						#用欄位名稱來儲存資料,"*"代表沒有資料
 						$result["content"][$columnName][]="*";
 						#換下一個欄位資料
 						continue;
 						}#if end
 					#取得資料的右半部
 					$rightDataStr=$delStrAfterKeyWord["content"];
 					#如果有 peer addr 資訊
 					if($leftDataStr!=="" && $rightDataStr!==""){
 						#用欄位名稱來儲存資料
 						$result["content"][$columnName][]=array("addr"=>$leftDataStr,"port"=>$rightDataStr);
 						}#if end
 					#反之
 					else{
 						#用欄位名稱來儲存資料
 						$result["content"][$columnName][]="*";
 						}#else end
 					#換下一個欄位資料
 					continue;
 					}#if end
 				#取得資料字串
 				$dataString=substr($line,$refAddr);
 				#debug
 				#var_dump(__LINE__,$dataString);
 				#如果數值為空
 				if($dataString===""){
 					#用欄位名稱來儲存資料
 					$result["content"][$columnName][]="";
 					#換下一個欄位資料
 					continue;
 					}#if end
 				#取得需要的部分
 				#函式說明:
 				#將字串特定關鍵字與其後面的內容剔除
 				#回傳結果:
 				#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
 				#無.
 				#備註:
 				#無.
 				$delStrAfterKeyWord=stringProcess::delStrAfterKeyWord($conf["stringProcess::delStrAfterKeyWord"]);
 				unset($conf["stringProcess::delStrAfterKeyWord"]);
 				#如果執行失敗
 				if($delStrAfterKeyWord["status"]==="false"){
 					#設置執行失敗
 					$result["status"]="false";
 					#設置錯誤訊息
 					$result["error"]=$delStrAfterKeyWord;
 					#回傳結果
 					return $result;
 					}#if end
 				#如果沒有找到" "
 				if($delStrAfterKeyWord["founded"]==="false"){
 					#設置執行失敗
 					$result["status"]="false";
 					#設置錯誤訊息
 					$result["error"]=$delStrAfterKeyWord;
 					#回傳結果
 					return $result;
 					}#if end
 				#用欄位名稱來儲存資料
 				$result["content"][$columnName][]=$delStrAfterKeyWord["content"];
 				}#for end
 			}#foreach end
 		#設置執行正常
 		$result["status"]="true";
 		#回傳結果
 		return $result;
 		}#function ss end
 	/*
 	#函式說明:
 	#解析有規律的字串,分成多個段落.
 	#無.
 	#備註:
 	#無.
 	*/
 	public static function section(&$conf){
 		#初始化要回傳的結果
 		$result=array();
 		#取得當前執行的函數名稱
 		$result["function"]=__FUNCTION__;
 		#如果 $conf 不為陣列
 		if(gettype($conf)!="array"){
 			#設置執行失敗
 			$result["status"]="false";
 			#設置執行錯誤訊息
 			$result["error"][]="\$conf變數須為陣列形態";
 			#如果傳入的參數為 null
 			if($conf==null){
 				#設置執行錯誤訊息
 				$result["error"][]="\$conf變數不得為null,請檢查函數「".$result["function"]."」的參數設置有無正確!";
 				}#if end
 			#回傳結果
 			return $result;
 			}#if end
 		#取得參數
 		$result["argu"]=$conf;
 		#函式說明:
 		#檢查必填與可省略的參數，可省略參數可指定預設要給與什麼數值內容.
 		#回傳結果:
 		#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
 		#$result["error"],執行不正常結束的錯訊息陣列.
 		#array_keys=>http://php.net/manual/en/function.array-keys.php
 		#備註:
 		#無.
 		$checkArguments=variableCheck::checkArguments($conf["variableCheck::checkArguments"]);
 		unset($conf["variableCheck::checkArguments"]);
 		#如果執行失敗
 		if($checkArguments["status"]==="false"){
 			#設置執行失敗
 			$result["status"]="false";
 			#設置錯誤訊息
 			$result["error"]=$checkArguments;
 			#回傳結果
 			return $result;
 			}#if end
 		#如果參數檢查不通過
 		if($checkArguments["passed"]==="false"){
 			#設置執行失敗
 			$result["status"]="false";
 			#設置錯誤訊息
 			$result["error"]=$checkArguments;
 			#回傳結果
 			return $result;
 			}#if end
 		#初始化儲存段落結果的陣列
 		$result["content"]=array();
 		#初始化贊存的單一片段資料
 		$tmpData="";
 		#初始化當前byte的形態,"start"代表開始符號;"end"代表結束符號;"data"代表內容.
 		$byteType="";
 		#針對每個byte
 		for($i=0;$i<strlen($conf["input"]);$i++){
 			#debug
 			#var_dump($conf["input"][$i],$tmpData);
 			#判斷每個字
 			switch($conf["input"][$i]){
 				#如果是開始符號字串
 				case $conf["startSymbol"]:
 					#如果開始結尾的符號字串相同
 					if($conf["startSymbol"]===$conf["endSymbol"]){
 						#如果剛剛的資料是 data
 						if($byteType==="data"){
 							#更新當前byte的形態
 							$byteType="end";
 							#保存該段落內容
 							$result["content"][]=$tmpData;
 							#初始化新的段落內容
 							$tmpData="";
 							#結束 switch
 							break;
 							}#if end
 						}#if end
 					#更新當前byte的形態
 					$byteType="start";
 					#初始化新的段落內容
 					$tmpData="";
 					#結束 switch
 					break;
 				#如果是結束符號字串
 				case $conf["endSymbol"]:
 					#更新當前byte的形態
 					$byteType="end";
 					#保存該段落內容
 					$result["content"][]=$tmpData;
 					#初始化新的段落內容
 					$tmpData="";
 					#結束 switch
 					break;
 				#其他結果
 				default :
 					#代表為 data
 					$byteType="data";
 					#串接段落內容
 					$tmpData=$tmpData.$conf["input"][$i];
 				}#switch end
 			}#for end`
 		#取得段落數量
 		$result["count"]=count($result["content"]);
 		#設置執行正常
 		$result["status"]="true";
 		#回傳結果
 		return $result;
 		}#function section end
-	}#class parser end
 	}#class parser end

Subversion Repositories php-qbpwcf

(root)/trunk/usr/lib64/qbpwcf/parser.php – Rev 3 → 226