해피CGI :: 한글 자르기

아이디 비밀번호 | 회원가입 | 비밀번호분실

　새로운소식

　FAQ

　웹프로그램

　웹DB

　웹서버

　웹프로그램수정

　해피칼럼

　골드팁

제작의뢰

웹프로그램 판매몰

현재위치: 메인

해피포럼

황금 : 게시물 읽기

2001-04-05 (17:07:06) from 211.109.190.84

작성인 : HappyCGI

제목 : 한글 자르기

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);

HappyCGI's SIGN

개발자의 미덕은

게으름(Laziness)
참지말기(Impatience)
교만(Hubris)


메모

남겨진 메모가 없습니다.



ⓗ	제목	작성인	조회	등록일

	한글 자르기	HappyCGI	1673	2001-04-05