문자열을 뒤에서부터 잘라내는 함수

//////문자열을 뒤에서부터 잘라내는 함수 ecu-kr용

function CutStringR($str,$len,$head=""){

if(strlen($str)<=$len){ return $str; }

$str2=substr($str,$len*-1);

$size=strlen($str2);

for($i=$size,$j=1;$j<=$size;$i--){

    $chr=substr($str2,$j*-1,1);

    if(ord($chr)>127){ $j++; $chr=substr($str,$j*-1,1).$chr; }

$result=$chr.$result;

$j++;

  }

return $head.$result;

}