| À¯´Ï ÄÚµå :: Á¤±ÔÈ À¯´Ï ÄÚµå :: Á¤±ÔÈ Perl ¸ðµâ¿¡´Â À¯´Ï ÄÚµå Á¤±ÔÈ ¾ç½ÄÀÌ Æ÷ÇԵǾî ÀÖ½À´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
À¯´Ï ÄÚµå :: Á¤±ÔÈ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- SADAHIRO Tomoyuki
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~sadahiro/ShiftJIS-String-1.04/String.pod
À¯´Ï ÄÚµå :: Á¤±ÔÈ Å±×
À¯´Ï ÄÚµå :: Á¤±ÔÈ ¼³¸í
À¯´Ï ÄÚµå :: Á¤±ÔÈ Perl ¸ðµâ¿¡´Â À¯´Ï ÄÚµå Á¤±ÔÈ ¾ç½ÄÀÌ µé¾î ÀÖ½À´Ï´Ù. Unicode :: Normalize Perl ¸ðµâ¿¡´Â À¯´Ï ÄÚµå Á¤±ÔÈ Forms.Synopsis (1) ±âº»ÀûÀ¸·Î ³» º¸³½ ÇÔ¼ö À̸§À» »ç¿ëÇÕ´Ï´Ù. Unicode :: Normalize; $ NFD_STRING = NFD ($ ¹®ÀÚ¿); # Á¤±ÔÈ ¾ç½Ä D $ NFC_STRING = NFC ($ ¹®ÀÚ¿); # Á¤±ÔÈ ¾ç½Ä C $ NFKD_STRING = NFKD ($ ¹®ÀÚ¿); # Á¤±ÔÈ ¾ç½Ä KD $ NFKC_STRING = NFKC ($ ¹®ÀÚ¿); # Á¤±ÔÈ ¾ç½Ä KC (2) ¿äû½Ã ³» º¸³½ ÇÔ¼ö À̸§ »ç¿ë : À¯´Ï ÄÚµå :: Á¤±ÔÈ 'Á¤±ÔÈ'; $ nfd_string = Á¤±ÔÈ ( 'd', $ string); # Á¤±ÔÈ ¾ç½Ä D $ NFC_STRING = Á¤±ÔÈ ( 'C', $ ¹®ÀÚ¿); # Á¤±ÔÈ ¾ç½Ä C $ NFKD_String = Á¤±ÔÈ ( 'kd', $ string); # Á¤±ÔÈ ¾ç½Ä KD $ NFKC_STRING = Á¤±ÔÈ ( 'KC', $ ¹®ÀÚ¿); # Á¤±ÔÈ ¾ç½Ä KCPARAMETERS : $ stringÀº ¹®ÀÚ Àǹ̷п¡¼ ¹®ÀÚ¿·Î »ç¿ëµË´Ï´Ù (perlunicode ÂüÁ¶). $ code_point´Â À¯´Ï ÄÚµå ÄÚµå point.note¸¦ ³ªÅ¸³»´Â ºÎÈ£¾ø´Â Á¤¼ö ¿©¾ßÇÕ´Ï´Ù. Âü°í : xsub¿Í ¼ø¼öÇÑ perl »çÀÌ¿¡ $ symptation¿¡ ´ëÇÑ È£È¯¼ºÀÌ ÀÖ½À´Ï´Ù. code_point ¼Ò¼öÁ¡À¸·Î. xsub $ code_point¸¦ ¼¸íµÇÁö ¾ÊÀº Á¤¼ö·Î º¯È¯ÇÏÁö¸¸ ¼ø¼öÇÑ perlÀº ±×·¸Áö ¾Ê½À´Ï´Ù. ºÎµ¿ ¼Ò¼öÁ¡ ¶Ç´Â ºÎÁ¤ÀûÀÎ ·Î±×ÀÎ $ code_point.normalization forms $ nfd_string = nfd ($ string)¸¦ ¹ÝȯÇÕ´Ï´Ù. $ NFC_STRING = NFC ($ string) Á¤±ÔÈ ¾ç½ÄÀ» ¹ÝȯÇÕ´Ï´Ù. C (Á¤Á÷Àû ÀÎ ºÐÇØ ÈÄ Á¤½Ä ±¸¼º¿¡ ÀÇÇØ Çü¼ºµÊ). $ nfkd_string = nfkd ($ string)´Â Á¤±ÔÈ ¾ç½Ä KD (ȣȯ¼º ºÐÇØ·Î Çü¼º)¸¦ ¹ÝȯÇÕ´Ï´Ù. $ NFKC_STRING = NFKC ($ string) Á¤±ÔÈ ¾ç½Ä KC (¿¡ ÀÇÇØ Çü¼ºµÊ)¸¦ ¹ÝȯÇÕ´Ï´Ù. Canonical CompositionÀÇ È£È¯¼º ºÐÇØ). $ FCD_String = FCD ($ string) ÁÖ¾îÁø ¹®ÀÚ¿ÀÌ FCD ( "FAST C ¶Ç´Â D"¾ç½Ä)¿¡ÀÖ´Â °æ¿ì, ¼öÁ¤¾øÀÌ ¹®ÀÚ¿À» ¹ÝȯÇÕ´Ï´Ù. ±×·¸Áö ¾ÊÀ¸¸é FCD ¹®ÀÚ¿À» ¹ÝȯÇÕ´Ï´Ù .Note : FCD°¡ Ç×»ó °íÀ¯ÇÏÁö´Â ¾ÊÁö¸¸ º¹¼ö Çü½ÄÀÌ ¼·Î µ¿ÀÏ ÇÒ ¼ö ÀÖ½À´Ï´Ù. FCD ()´Â ÀÌ¿Í µ¿ÀÏÇÑ ¾ç½Ä Áß Çϳª¸¦ ¹ÝȯÇÕ´Ï´Ù. $ FCC_String = FCC ($ string) FCC ¾ç½Ä ( "FAST C ÀÎÁ¢ÇÑ"; ÂüÁ¶) .NOTE : FCC´Â °íÀ¯ ÇѻӸ¸ ¾Æ´Ï¶ó 4 °³ÀÇ Á¤±ÔÈ ¾ç½ÄÀÔ´Ï´Ù. (nf *). $ normalized_string = normalize ($ form_name, $ string) $ form_name.as $ form_nameÀÇ Á¤±ÔÈ ¾ç½ÄÀ» ¹ÝȯÇÕ´Ï´Ù. ´ÙÀ½ À̸§ Áß Çϳª¸¦ ÁöÁ¤ÇؾßÇÕ´Ï´Ù. Á¤±ÔÈ Çü½Ä (UAX # 15) 'D'¶Ç´Â 'NFD'¸¦À§ÇÑ 'C'¶Ç´Â 'NFC'Á¤±ÔÈ ¾ç½Ä D (UAX # 15) 'KC'¶Ç´Â 'NFKC'Á¤±ÔÈ ¾ç½Ä KC (UAX # 15) 'KD "FAST C ¶Ç´Â D"¾ç½Ä (UTN # 5) 'FCC'¿¡ ´ëÇÑ Á¤±ÔÈ ¾ç½Ä KD (UAX # 15) 'FCD'¿¡ ´ëÇÑ "FAST C ¶Ç´Â D"(UTN # 5) ¿ä±¸ »çÇ׿¡ ´ëÇÑ 'NFKD' ¡¤ Perl.
À¯´Ï ÄÚµå :: Á¤±ÔÈ °ü·Ã ¼ÒÇÁÆ®¿þ¾î