| À¯´Ï ÄÚµå :: Å»Ãâ Unicode :: Escape´Â ASCII ÀÌ¿ÜÀÇ Escape ¹× Unescape À¯´Ï ÄÚµå ¹®ÀÚ°¡ÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
À¯´Ï ÄÚµå :: Å»Ãâ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Hitoshi Amano
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~itwarrior/Unicode-Escape-0.0.2/lib/Unicode/Escape.pm
À¯´Ï ÄÚµå :: Å»Ãâ ű×
À¯´Ï ÄÚµå :: Å»Ãâ ¼³¸í
Unicode :: Escape´Â Å»Ãⱸ¿Í Unescape Unescape Unicode ¹®ÀÚ°¡ÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. À¯´Ï ÄÚµå :: Escape´Â escii.synopsis # À̽ºÄÉÀÌÇÁ À¯´Ï ÄÚµå ij¸¯ÅÍ°¡ '\ u3042 \ u3043 \ u3044'ÀÌ¿ÜÀÇ escripe ¹× unescape À¯´Ï ÄÚµå ¹®ÀÚ°¡ÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. # jsonÀº ´õ ÀÌ»ó garbleÀ» »ý°¢ÇÏÁö ¾Ê´Â´Ù !! # ÄÉÀ̽º 1 À¯´Ï ÄÚµå :: Å»Ãâ; MY $ ESCAPED1 = À¯´Ï ÄÚµå :: Escape :: Escape ($ STR1, 'EUC-JP'); # $ str1Àº ASCII°¡ ¾Æ´Ñ ij¸¯ÅÍ°¡ µé¾î ÀÖ½À´Ï´Ù. $ STR1Àº EUC-JP¿¡ ÀÇÇØ ÀÎÄÚµùµË´Ï´Ù. MY $ ESCAPED2 = À¯´Ï ÄÚµå :: Escape :: Escape ($ str2); # ±âº»°ªÀº UTF8 # $ str2°¡ ASCII°¡ ¾Æ´Ñ ij¸¯ÅÍ°¡ µé¾î ÀÖ½À´Ï´Ù. MY $ UNESCAPED1 = À¯´Ï ÄÚµå :: Escape :: Unescape ($ str3, 'shiftjis'); # $ str3¿¡´Â À̽ºÄÉÀÌÇÁ µÈ À¯´Ï ÄÚµå ¹®ÀÚ°¡ µé¾î ÀÖ½À´Ï´Ù. ¹Ýȯ °ªÀº ShiftJis¿¡ ÀÇÇØ ÀÎÄÚµùµË´Ï´Ù. MY $ UNESCAPED2 = À¯´Ï ÄÚµå :: Escape :: Unescape ($ str4); # ±âº»°ªÀº utf8 # $ str4 °¡½ºÄÉÀÌÇÁ µÈ À¯´Ï ÄÚµå ¹®ÀÚ°¡ µé¾î ÀÖ½À´Ï´Ù. # ÄÉÀ̽º 2 À¯´Ï ÄÚµå :: À̽ºÄÉÀÌÇÁ QW (Å»Ãâ unescape); MY $ ESCAPED1 = À̽ºÄÉÀÌÇÁ ($ STR1, 'EUC-JP'); # $ str1Àº ASCII°¡ ¾Æ´Ñ ij¸¯ÅÍ°¡ µé¾î ÀÖ½À´Ï´Ù. $ STR1Àº EUC-JP¿¡ ÀÇÇØ ÀÎÄÚµùµË´Ï´Ù. ³» $ escaped2 = Å»Ãâ ($ str2); # ±âº»°ªÀº UTF8 # $ str2°¡ ASCII°¡ ¾Æ´Ñ ij¸¯ÅÍ°¡ µé¾î ÀÖ½À´Ï´Ù. MY $ UNSCAPED1 = UNESCAPE ($ str3, 'shiftjis'); # $ str3¿¡´Â À̽ºÄÉÀÌÇÁ µÈ À¯´Ï ÄÚµå ¹®ÀÚ°¡ µé¾î ÀÖ½À´Ï´Ù. ¹Ýȯ °ªÀº ShiftJis¿¡ ÀÇÇØ ÀÎÄÚµùµË´Ï´Ù. MY $ UNESCAPED2 = UNESCAPE ($ str4); # ±âº»°ªÀº utf8 # $ str4 °¡½ºÄÉÀÌÇÁ µÈ À¯´Ï ÄÚµå ¹®ÀÚ°¡ µé¾î ÀÖ½À´Ï´Ù. # ÄÉÀ̽º 3 À¯´Ï ÄÚµå :: Å»Ãâ; My $ Escaper = À¯´Ï ÄÚµå :: À̽ºÄÉÀÌÇÁ -> »õ ($ str, 'shiftjis'); # $ strÀº ASCII°¡ ¾Æ´Ñ ij¸¯ÅÍ°¡ µé¾î ÀÖ½À´Ï´Ù. $ strÀº shiftjis¿¡ ÀÇÇØ ÀÎÄÚµùµË´Ï´Ù. (±âº»°ªÀº UTF8ÀÔ´Ï´Ù) My $ Å»Ãâ = $ Escaper-> Å»Ãâ; # ÄÉÀ̽º 4 À¯´Ï ÄÚµå :: Å»Ãâ; My $ Escaper = À¯´Ï ÄÚµå :: À̽ºÄÉÀÌÇÁ -> »õ ($ str); # $ str À̽ºÄÉÀÌÇÁ µÈ À¯´Ï ÄÚµå ¹®ÀÚ°¡ µé¾î ÀÖ½À´Ï´Ù. ³» $ Unescaped1 = $ Escaper-> Unescape ( 'shiftjis'); ³» $ Unescaped2 = $ Escaper-> Unescape; # default´Â utf8.escape ¹× unescape À¯´Ï ÄÚµå ¹®ÀÚ¸¦ ASCII ÀÌ¿ÜÀÇ ¹®ÀÚÀÔ´Ï´Ù. ¼¹ö ÀÀ´äÀÌ JavaScript ÄÚµå ÀÎ °æ¿ì Æí¸®ÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
À¯´Ï ÄÚµå :: Å»Ãâ °ü·Ã ¼ÒÇÁÆ®¿þ¾î