漢字の長さを取得する小さな関数

//漢字の長さ、1 つの漢字の長さは 1 です。
関数 cstrlen($str){
$n = 0; $p = 0; $c = ”;
$len = strlen($str);
for($i = 0 ; $i $c = ord($str{$i});
if($c > 127) {
$p = 1;
} else {
$p = 0;
}
$i+=$p;$n++;
}
return $n;
}
?>