>Çѱ۹®ÀåÀ» ÀÏÁ¤ÇÑ ±æÀÌ·Î »Ì¾Æ³¾·Á ÇÕ´Ï´Ù.
>
>¿ø·¡¹®Àå : "°¡³ª 123¹Ù"
>»ÌÀ»¹®Àå : substr($string,0,9)
>
>±×·¯¸é ³¡±ÛÀÚ "¹Ù" °¡ ©·Á¼­ ÀÌ»óÇÑ ¹®ÀÚ·Î ³ª¿É´Ï´Ù.
>ÀÌ·± °æ¿ìó·³ ÇѱÛÀÌ ¹ÝÀß·Á¼­ ¼±ÅÃÀÌ µÉ ¶§ »ÌÀ» ±æÀ̸¦
>Çϳª´õ ´Ã¸®µçÁö ÇÏ¿© ¿Â ±ÛÀÚ·Î ¼±ÅÃÀÌ µÉ ¼öÀÖµµ·Ï ÇÏ´Â
>¹æ¹ýÀÌ ÀÖ´ÂÁö¿ä. ¾Æ½Ã´ÂºÐÀÇ Á¶¾ðÀ» ºÎŹµå¸³´Ï´Ù.
>
>ÀоîÁּż­ °¨»çÇÕ´Ï´Ù.
>

¾È³çÇϼ¼¿ä. ÇØÇÇ CGI À¥¸¶½ºÅÍ À±¿µ¿õÀÔ´Ï´Ù.
Àúµµ ¿¹Àü ÀÌ·± ¹®Á¦·Î °í¹ÎÀ» ¸¹ÀÌ Çß½À´Ï´Ù.
(¿ö³« ½Ç·ÂÀÌ ¾ø¾î¼­ ^^)
°á±¹ ÀÓ´ëÈ£´ÔÀÌ ÀÛ¼ºÇϽŠ¼­ºê·çƾÀ» »ç¿ëÇÏ°Ô µÇ¾úÁö¿ä.

¾Æ·¡´Â ¼­ºê·çƾÀÔ´Ï´Ù.

ÇÔ¼ö»ç¿ë¹ý : (°¡°ø°á°ú ÀÚ·á, ÀÚ¸¥¿©ºÎ) = hangul_cut(¿øº»ÀÚ·á, ÀÚ¸¦±æÀÌ)

sub hangul_cut {
local ($data, $len) = @_;
local $check;
if (length $data > $len) {
$data = substr $data, 0, $len;
chop $data if ($data =~ y/[xA1-xFE]//) %2 != 0;
$check = 1; }
return $data, $check;
}

À§ ·çƾÀ» »ç¿ëÇÏ½Ã¸é µÉ°Ì´Ï´Ù.
¸¹Àº ÆÁµéÀ» Á¦°øÇØÁֽô ÀÓ´ëÈ£´Ô²² °¨»çÀÇ ¸»¾¸À» µ¢´Þ¾Æ µå¸³´Ï´Ù.

¼­ºê·çƾ ÀÚ·áÃâó : http://www.way.co.kr