<?php
 /**
  file: mytpl.class.php 類名為MyTpl是自定義的模板引擎
  通過(guò)該類對(duì)象加載模板文件并解析，將解析后的結(jié)果輸出 
 */
 class Mytpl {
  public $template_dir = 'templates';  //定義模板文件存放的目錄 
  public $compile_dir = 'templates_c';  //定義通過(guò)模板引擎組合后文件存放目錄
  public $left_delimiter = '<{';   //在模板中嵌入動(dòng)態(tài)數(shù)據(jù)變量的左定界符號(hào)
  public $right_delimiter = '}>';   //在模板中嵌入動(dòng)態(tài)數(shù)據(jù)變量的右定界符號(hào)
  private $tpl_vars = array();    //內(nèi)部使用的臨時(shí)變量
  /** 
   將PHP中分配的值會(huì)保存到成員屬性$tpl_vars中，用于將模板中對(duì)應(yīng)的變量進(jìn)行替換 
   @param string $tpl_var 需要一個(gè)字符串參數(shù)作為關(guān)聯(lián)數(shù)組下標(biāo)，要和模板中的變量名對(duì)應(yīng) 
   @param mixed $value  需要一個(gè)標(biāo)量類型的值，用來(lái)分配給模板中變量的值  
  */
  function assign($tpl_var, $value = null) { 
   if ($tpl_var != '')     
    $this->tpl_vars[$tpl_var] = $value;
  }
  /** 
   加載指定目錄下的模板文件，并將替換后的內(nèi)容生成組合文件存放到另一個(gè)指定目錄下
   @param string $fileName 提供模板文件的文件名            
  */
   function display($fileName) { 
   /* 到指定的目錄中尋找模板文件 */
   $tplFile = $this->template_dir.'/'.$fileName; 
   /* 如果需要處理的模板文件不存在,則退出并報(bào)告錯(cuò)誤 */
   if(!file_exists($tplFile)) {     
    die("模板文件{$tplFile}不存在！");
   }
   /* 獲取組合的模板文件，該文件中的內(nèi)容都是被替換過(guò)的 */
   $comFileName = $this->compile_dir."/com_".$fileName.'.php'; 
   /* 判斷替換后的文件是否存在或是存在但有改動(dòng)，都需要重新創(chuàng)建 */
   if(!file_exists($comFileName) || filemtime($comFileName) < filemtime($tplFile)) {
    /* 調(diào)用內(nèi)部替換模板方法 */
    $repContent = $this->tpl_replace(file_get_contents($tplFile)); 
    /* 保存由系統(tǒng)組合后的腳本文件 */
    file_put_contents($comFileName, $repContent);
   }
   /* 包含處理后的模板文件輸出給客戶端 */
   include($comFileName);     
  }
  /** 
   內(nèi)部使用的私有方法，使用正則表達(dá)式將模板文件'<{ }>'中的語(yǔ)句替換為對(duì)應(yīng)的值或PHP代碼 
   @param string $content 提供從模板文件中讀入的全部?jī)?nèi)容字符串 
   @return $repContent   返回替換后的字符串
  */
  private function tpl_replace($content) {
   /* 將左右定界符號(hào)中，有影響正則的特殊符號(hào)轉(zhuǎn)義 例如，<{ }>轉(zhuǎn)義\<\{ \}\> */
   $left = preg_quote($this->left_delimiter, '/');
   $right = preg_quote($this->right_delimiter, '/');
   /* 匹配模板中各種標(biāo)識(shí)符的正則表達(dá)式的模式數(shù)組 */
   $pattern = array(  
    /* 匹配模板中變量 ,例如，"<{ $var }>" */
    '/'.$left.'\s*\$([a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*)\s*'.$right.'/i',  
    /* 匹配模板中if標(biāo)識(shí)符，例如 "<{ if $col == "sex" }> <{ /if }>" */
    '/'.$left.'\s*if\s*(.+?)\s*'.$right.'(.+?)'.$left.'\s*\/if\s*'.$right.'/ies',
    /* 匹配elseif標(biāo)識(shí)符, 例如 "<{ elseif $col == "sex" }>" */
    '/'.$left.'\s*else\s*if\s*(.+?)\s*'.$right.'/ies', 
    /* 匹配else標(biāo)識(shí)符, 例如 "<{ else }>" */
    '/'.$left.'\s*else\s*'.$right.'/is', 
    /* 用來(lái)匹配模板中的loop標(biāo)識(shí)符，用來(lái)遍歷數(shù)組中的值, 例如 "<{ loop $arrs $value }> <{ /loop}>" */
    '/'.$left.'\s*loop\s+\$(\S+)\s+\$([a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*)\s*'.$right.'(.+?)'.$left.'\s*\/loop\s*'.$right.'/is',
    /* 用來(lái)遍歷數(shù)組中的鍵和值,例如 "<{ loop $arrs $key => $value }> <{ /loop}>" */
    '/'.$left.'\s*loop\s+\$(\S+)\s+\$([a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*)\s*=>\s*\$(\S+)\s*'.$right.'(.+?)'.$left.'\s*\/loop \s*'.$right.'/is', 
    /* 匹配include標(biāo)識(shí)符, 例如，'<{ include "header.html" }>' */
    '/'.$left.'\s*include\s+[\"\']?(.+?)[\"\']?\s*'.$right.'/ie'     
   );
   /* 替換從模板中使用正則表達(dá)式匹配到的字符串?dāng)?shù)組 */
   $replacement = array( 
    /* 替換模板中的變量 <?php echo $this->tpl_vars["var"]; */
    '<?php echo $this->tpl_vars["${1}"]; ?>',  
    /* 替換模板中的if字符串 <?php if($col == "sex") { ?> <?php } ?> */
    '$this->stripvtags(\'<?php if(${1}) { ?>\',\'${2}<?php } ?>\')',  
    /* 替換elseif的字符串 <?php } elseif($col == "sex") { ?> */
    '$this->stripvtags(\'<?php } elseif(${1}) { ?>\',"")', 
    /* 替換else的字符串 <?php } else { ?> */
    '<?php } else { ?>', 
    /* 以下兩條用來(lái)替換模板中的loop標(biāo)識(shí)符為foreach格式 */
    '<?php foreach($this->tpl_vars["${1}"] as $this->tpl_vars["${2}"]) { ?>${3}<?php } ?>', 
    '<?php foreach($this->tpl_vars["${1}"] as $this->tpl_vars["${2}"] => $this->tpl_vars["${3}"]) { ?>${4}<?php } ?>', 
    /*替換include的字符串*/
    'file_get_contents($this->template_dir."/${1}")'    
   );
   /* 使用正則替換函數(shù)處理 */
   $repContent = preg_replace($pattern, $replacement, $content);  
   /* 如果還有要替換的標(biāo)識(shí),遞歸調(diào)用自己再次替換 */
   if(preg_match('/'.$left.'([^('.$right.')]{1,})'.$right.'/', $repContent)) {  
    $repContent = $this->tpl_replace($repContent);    
   } 
   /* 返回替換后的字符串 */
   return $repContent;          
  }
   /**
   內(nèi)部使用的私有方法，用來(lái)將條件語(yǔ)句中使用的變量替換為對(duì)應(yīng)的值
   @param string $expr  提供模板中條件語(yǔ)句的開始標(biāo)記   
   @param string $statement 提供模板中條件語(yǔ)句的結(jié)束標(biāo)記 
   @return strin    將處理后的條件語(yǔ)句相連后返回 
  */
  private function stripvtags($expr, $statement='') {
   /* 匹配變量的正則 */
   $var_pattern = '/\s*\$([a-zA-Z_\x7f-\xff][a-zA-Z0-9_\x7f-\xff]*)\s*/is'; 
   /* 將變量替換為值 */
   $expr = preg_replace($var_pattern, '$this->tpl_vars["${1}"]', $expr); 
   /* 將開始標(biāo)記中的引號(hào)轉(zhuǎn)義替換 */
   $expr = str_replace("\\\"", "\"", $expr);
   /* 替換語(yǔ)句體和結(jié)束標(biāo)記中的引號(hào) */
   $statement = str_replace("\\\"", "\"", $statement); 
   /* 將處理后的條件語(yǔ)句相連后返回 */
   return $expr.$statement;        
  }
 }
?>

$tpl->assign("var","this is a value"); //可以分配標(biāo)量類型數(shù)據(jù)，可以使用多次
$tpl->assign("arr",array(array(1,2),array("a","b"))); //也可以分配數(shù)組包括多維數(shù)組

<{loop $arr $value }>     //遍歷數(shù)組$arr中的元素值
 數(shù)組中的元素值<{$value}>   //每次遍歷輸出元素中的值
<{/loop}>        //在模板中遍歷數(shù)組的結(jié)束標(biāo)記
<{loop $arr $key=>$value }>   //遍歷數(shù)組$arr中的元素下標(biāo)和元素值
 數(shù)組中的元素鍵<{$key}>    //每次遍歷輸出元素中的下標(biāo)
 數(shù)組中的元素值<{$value}>   //每次遍歷輸出元素中的值
<{/loop}>        //在模板中遍歷數(shù)組的結(jié)束標(biāo)記
<{loop $arr $value }>     //遍歷數(shù)組$arr中的元素值
 <{loop $arr $data }>    //使用嵌套標(biāo)記遍歷二維數(shù)組
  數(shù)組中的元素值<{$value}>  //每次遍歷輸出元素中的值
 <{/loop}>       //在模板中遍歷數(shù)組的內(nèi)層結(jié)束標(biāo)記
<{/loop}>        //在模板中遍歷數(shù)組的外層結(jié)束標(biāo)記

<{if($var=="red")}>
 <p style="color:red">這是“紅色”的字</p>
<{elseif($var=="green")}> 
 <p style="color:green">這是“綠色”的字</p>
<{else}>
 <{if($size=20)}>
  <p style="font-size:20">這是“20px”大小的字</p>
 <{/if}>
<{/if}>

CREATE TABLE User(
 id SMALLINT(3) NOT NULL AUTO_INCREMENT,
 name VARCHAR(10) NOT NULL DEFAULT '',
 sex VARCHAR(4) NOT NULL DEFAULT '',
 age SMALLINT(2) NOT NULL DEFAULT '0',
 email VARCHAR(20) NOT NULL DEFAULT '',
 PRIMARY KEY (id)
);

INSERT INTO User (name,sex,age,email) VALUES 
("a","男",27,"a@a.com"),
("b","女",22,"b@b.com"),
("c","女",30,"c@c.com"),
("d","女",24,d@d.com);

<!DOCTYPE html>
<html lang="en">
<head>
 <meta charset="UTF-8">
 <title> <{$title}> </title>
</head>
<body>

  <div style="width:200px;margin: 0 auto;">##### <{$author}> #####</div>  
 </body>
</html>

<{include 'header.tpl'}>
 <table border="1" align="center" width="500">
  <{ loop $users $user }>
   <tr> 
    <{loop $user $u }>

      <{if $u == "男" }>
       <td style="color:green">
      <{elseif $u == "女"}>
       <td style="color:red">
      <{else}>
       <td>
      <{/if}>

       <{$u}></td>    
    <{/loop}>
   </tr>
  <{/loop}>
 </table>
<{include 'footer.tpl'}>

<?php
 //包含模板引擎類
 include "mytpl.class.php";
 //創(chuàng)建模板引擎對(duì)象
 $tpl = new Mytpl;
 //連接數(shù)據(jù)庫(kù)
 $pdo = new PDO("mysql:host=localhost;dbname=mydb", "admin", "123456");
 //執(zhí)行SQL語(yǔ)句
 $stmt = $pdo -> prepare("select id, name, sex,age,email from User order by id");
 $stmt ->execute();
 $data = $stmt -> fetchAll(PDO::FETCH_ASSOC);
 //這是從數(shù)據(jù)庫(kù)獲取的動(dòng)態(tài)數(shù)據(jù)，需要在模板中顯示
 $tpl->assign('title',"自定義模板引擎");$tpl->assign('auto',"小火柴");
 $tpl->assign('users',$data);
 $tpl -> display("main.tpl");
?>