//此文件用于快速测试utf8编码的文件是不是加了bom，并可自动移除//by bob shen$basedir=.; //修改此行为需要检测的目录，点表示当前目录
$auto=1; //是否自动移除发现的bom信息。1为是，0为否。//以下不用改动
if ($dh = opendir($basedir)) {while (($file = readdir($dh)) !== false) {if ($file!='.' && $file!='..' && !is_dir($basedir./.$file)) echo filename: $file .checkbom($basedir/$file).
;}closedir($dh);}function checkbom ($filename) {
global $auto;$contents=file_get_contents($filename);$charset[1]=substr($contents, 0, 1);$charset[2]=substr($contents, 1, 1);$charset[3]=substr($contents, 2, 1);if (ord($charset[1])==239 && ord($charset[2])==187 && ord($charset[3])==191) {if ($auto==1) {$rest=substr($contents, 3);rewrite ($filename, $rest);return (bom found, automatically removed.);} else {return (bom found.);}}else return (bom not found.);}function rewrite ($filename, $data) {
$filenum=fopen($filename,w);flock($filenum,lock_ex);fwrite($filenum,$data);fclose($filenum);}?>
复制代码