해피CGI 입니다.

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

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

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

[프로그램코드]

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

자료출처 : http://www.perl.or.kr/tips/cut_han.html

개발자의 미덕은 게으름(Laziness) 참지말기(Impatience) 교만(Hubris)