本文實例講述了PHP基于閉包思想實現的torrent文件解析工具。分享給大家供大家參考，具體如下：
PHP對靜態詞法域的支持有點奇怪，內部匿名函數必須在參數列表后面加上use關鍵字，顯式的說明想要使用哪些外層函數的局部變量。
function count_down($count){ return $func = function() use($count,$func) { if(--$count > 0) $func(); echo "wow/n"; };}$foo = count_down(3);$foo();我本來是想這樣的。但是不行，會在第7行調用$func的時候報錯。
錯誤是Fatal error: Function name must be a string in - on line 7
反復試驗后發覺，外部的匿名函數應該通過引用傳值傳給內部，否則是不行的：
function count_down($count){ return $foo = function() use(&$count,&$foo) { echo $count."/n"; if(--$count > 0) $foo(); };}$foo = count_down(4);$foo();像上面這樣寫就對了。
下面是另一種方法：
function count_down_again($count){ return function()use($count) { printf("wow %d/n",$count); return --$count; };}$foo = count_down_again(5);while($foo() >0);不過，這段代碼有點小錯誤。編譯雖然沒錯，但是$foo函數每次返回的都是4.
也就是use關鍵字看上去像是支持靜態詞法域的，在這個例子上，它只是對外層函數使用的變量作了一個簡單拷貝。
讓我們稍微修改一下，把第3行的use($count)改為use(&$count)：
function count_down_again($count){ return function()use(&$count) { printf("wow %d/n",$count); return --$count; };}$foo = count_down_again(5);while($foo() >0);這樣才正確。
我個人使用的方式是基于類的，做成了類似下面的形式：
class Foo{ public function __invoke($count) { if($count > 0) $this($count - 1); echo "wow/n"; }}$foo = new Foo();$foo(4);這樣做的行為也是正確的。
這樣不會像前一個例子那樣失去了遞歸調用的能力。
雖然這是一個類，但是只不過是在手動實現那些支持閉包和靜態詞法域的語言中，編譯器自動實現的動作。
其實今天早上，我本來準備用類scheme的風格寫一個解析器的?？赡苌晕⑼睃c吧。scheme風格的函數式編程是這樣的：
function yet_another_count_down($func,$count){ $func($count); if($count > 0) yet_another_count_down($func,$count - 1);}yet_another_count_down(function($var){echo $var."/n";},6);它不是很依賴靜態詞法域，雖然scheme對靜態詞法域的支持還是很不錯的。它主要還是利用了first-class-function。當然，這也是一種典型的閉包。
我實現的torrent解析工具的代碼如下：
<?php$file_name = '1.torrent';$file = fopen($file_name,'r');$nil = new Parser($file);//構造解析器$nil = $nil();//進行解析$pos = ftell($file);echo '讀取到文件位置'.sprintf('0x%08X',$pos)."/r/n";fseek($file,0,SEEK_END);echo '還剩下'.(ftell($file) - $pos).'字節未讀取'."/r/n";if(!feof($file)){ echo '文件還未結束，再讀一個字符:'; $ch = fgetc($file); if(is_string($ch) && ereg('/w',$ch)) { echo $ch."/r/n"; } else { printf('0x%02X',$ch); echo "/r/n"; } echo '現在的文件位置是'.sprintf('0x%08X',ftell($file))."/r/n"; echo '文件'.(feof($file)?'已結束':'還未結束')."/r/n";}fclose($file);//解析器后面不再工作了，此時可以釋放文件指針了。$info = @$nil['value'][0]['info'];if(!$info){ echo '這是一個有效的B-Encoding文件，但它不是一個有效的種子文件'; exit();}$name = $info['name.utf-8'] ?$info['name.utf-8']:$info['name'];if(!$name){ echo '這是一個有效的B-Encoding文件，但它不是一個有效的種子文件'; exit();}echo $name."/r/n";if($info['files']){ $index = 0; foreach($info['files'] as $f) { $index += 1; $path = $f['path.utf8'] ?$f['path.utf8'] :$f['path']; if(!$path) { echo '文件列表中的第'.$index."個文件不含目錄/r/n"; continue; } if(0 === strpos($path[0],"_____padding_file_"))continue; $under_folder = false; foreach($path as $item) { if($under_folder) { echo '/'; }else{ $under_folder = true; } echo $item; } echo "/r/n"; }}else{ echo "僅有一個文件/r/n";}class Parser{ private $_file; public function __construct($file) { $this ->_file = $file; } public function __invoke($parent = array()) { $ch = $this ->read(); switch($ch) { case 'i': { $n = $ch; while(($ch = $this ->read()) != 'e') { if(!is_numeric($ch)) { echo '在'; echo sprintf( '0x%08X',ftell($this ->_file)); echo '解析數字時遇到錯誤',"/r/n"; echo '在i和e之間不應該出現非數字字符'."/r/n"; echo '意外的字符'.sprintf('0x%02X',$ch); exit(); } else { $n .= $ch; } } $n += 0; $offset = count($parent['value']); $parent['value'][$offset] = $n; return $parent; } break; case 'd': { $node = array(); //這個$node變量作為字典對象準備加入到$parent的孩子節點中去 //$node['type'] = 'd'; while('e' != ($tmp = $this($node))) {//每次給$node帶來一個新孩子 $node = $tmp; } $child_count = count($node['value']); if($child_count % 2 != 0) { echo '解析結尾于'; echo sprintf('0x%08X',ftell($this ->_file)); echo '的字典時遇到錯誤:'."/r/n"; echo '字典的對象映射不匹配'; exit(); } $product = array(); for($i = 0; $i < $child_count; $i += 2) { $key = $node['value'][$i]; $value = $node['value'][$i + 1]; if(!is_string($key)) { echo '無效的字典結尾于'; echo sprintf('0x%08X',ftell($this ->_file)); echo ":/r/n"; echo '解析[k => v]配對時遇到錯誤，k應為字符串'; exit(); } $product[$key] = $value; } /* * 思想是這樣的：子節點想要加入父節點時， * 往父節點的value數組添加。 * 當父節點收集好所需的信息后， * 父節點自身再從它的value節點整合內容 * 對于字典和列表統一這樣處理會大大降低代碼量 */ $offset = count($parent['value']); $parent['value'][$offset] = $product; return $parent; } break; case 'l'; { $node = array(); while('e' != ($tmp = $this($node))) { $node = $tmp; } $offset = count($parent['value']); $parent['value'][$offset] = $node['value']; return $parent; } break; case 'e': return 'e'; break; default: { if(!is_numeric($ch)) { $this ->unexpected_character( ftell($this ->_file) - 1,$ch); } $n = $ch; while(($ch = $this ->read()) != ':') { $n .= $ch; if(!is_numeric($n)) { unexpected_character( ftell($this ->_file) - 1,$ch); } } $n += 0; $str = ''; for(; $n > 0; --$n) { $str .= $this ->read(); } $offset = count($parent['value']); $parent['value'][$offset] = $str; return $parent; } break; } } /* * read函數包裹了$this ->_file變量 */ function read() { if(!feof($this ->_file)) { return fgetc($this ->_file); }else{ echo '意外的文件結束'; exit(); } } /* * unexpected_character函數接收2個參數 * 它用于指明腳本在何處遇到了哪個不合法的字符， * 并在返回前終止腳本的運行。 */ function unexpected_character($pos,$val) { $hex_pos = sprintf("0x%08X",$pos); $hex_val = sprintf("0x%02X",$val); echo 'Unexpected Character At Position '; echo $hex_pos.' , Value '.$hex_val."/r/n"; echo "Analysing Process Teminated."; exit(); }}?> 這里很有趣的是，明明我對文件調用了fseek($file,0,SEEK_END);移動到文件末尾了，但是feof還是報告說文件沒有結束，并且fgetc返回一個0，而沒有報錯。但是此時文件實際上已經到末尾了。
希望本文所述對大家PHP程序設計有所幫助。
新聞熱點
疑難解答
圖片精選
