해피CGI :: [perl] 한글 깨끗하게 짜르기

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

　FAQ

현재위치: 메인

황금 : 게시물 펼쳐읽기

Total related article : 1

[perl] 한글 깨끗하게 짜르기

글쓴이 : HappyCGI

해피CGI 입니다.

한글이 2바이트를 쓰기 때문에 일반 문자열을 자르는 함수를 썼을때

한글이 깨어지는 경우가 종종있죠?

아래 코드를 쓰시면 간단히 해결되겠네요.

[프로그램코드]
if( length($text) > 60 ) {
$text = substr($text,0,60);
$text =~ s/(([\x80-\xff].)*)[\x80-\xff]?$/$1/;
}