[해피CGI][cgimall] 한글 자르기

sub CutString {
      my $string = shift;
      my $len = shift;
      my $cut = 0;

      while($len != 0) {
              if( ord(substr($string, $cut, 1) ) >= 128 ) {
                      $cut += 2; #korean char & 
              }
              else {
                      $cut++;
              }
              $len--;
              last if ($len == 0);
      }
      return substr($string, 0, $cut);
}

#사용법
$a = "12펄34마56니78아";
print CutString($a,7);