|
|
|
 현재위치: 메인  해피포럼 황금 : 게시물 펼쳐읽기 |
|
|
| Total related article : 1 |
 |
| 등록일: | 2001-04-05 |
| 시간: | 17:07:06 |
| 조회수: | 1671 |
| from: | 211.109.190.84 |
|
|
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);
|
|
 |
|
|
한글 자르기 
