請(qǐng)問“\ud83d\ude3d”這是什么字符？

freeand

編碼碼是：\ud83d\ude3d 在網(wǎng)頁上看到并復(fù)制粘貼到論壇編輯器時(shí)看到的是：   發(fā)帖后變成：😽

經(jīng)perl處理后：

1. my $text = '\ud83d\ude3d';
   
2. $text =~ s/\\u([0-9a-fA-F]{4})/pack("U",hex($1))/eg;
   
3. $text = encode( "utf8", $text );
   
4. printf  "$text\n";

復(fù)制代碼

輸出：

亂碼？

有什么辦法轉(zhuǎn)成正常的utf8字符？

sjdy521

1. perldoc perlre

復(fù)制代碼

Escape sequences

freeand

sjdy521 發(fā)表于 2012-10-13 18:34

跟這個(gè)沒關(guān)系吧？

http://www.charbase.com/1f63d-unicode-kissing-cat-face-with-closed-eyes
IE瀏覽器下兩個(gè)“口口”，F(xiàn)irefox看到的和我上面發(fā)的圖片一樣，就像“1F63D”這幾個(gè)字符。

sjdy521

這是perl板塊啊

freeand

sjdy521 發(fā)表于 2012-10-13 19:45
這是perl板塊啊

是啊，問題就是用perl來做unicode轉(zhuǎn)utf8的問題啊。
一般中文的unicode代碼pack后可以正常轉(zhuǎn)成utf8格式。但 \ud83d\ude3d 轉(zhuǎn)成后無論是顯示還存保存在utf8格式的文件里，都是那幾個(gè)“亂碼”。

1. my $text = '\u4f60';
   
2. $text =~ s/\\u([0-9a-fA-F]{4})/pack("U",hex($1))/eg;
   
3. $text = encode( "utf8", $text );
   
4. printf  "$text\n";

復(fù)制代碼

結(jié)果：你

jason680

回復(fù) 1# freeand


    \ud83d \ude3d  ==> utf-16

http://www.russellcottrell.com/g ... ePairCalculator.htm
    Enter a hexadecimal Unicode surrogate pair (D800-DBFF and DC00-DFFF):
    d83d + de3d = 1F63D (utf-32)  😽

Note: 😽 it will be a graphic like as an animal "cat",
but 😽 (utf-32) can't show on this page

freeand

回復(fù) 6# jason680

是這樣了，和我之前發(fā)的那個(gè)鏈接相關(guān)。
我用Firefox 1.5，IE 8都沒法顯示那個(gè)表情，似乎要修改一下系統(tǒng)的注冊(cè)表。

現(xiàn)在比較關(guān)心的不是顯示，而是它能不能轉(zhuǎn)成UTF8的形式保下來。按以上的辦法轉(zhuǎn)成UTF8（錯(cuò)碼？亂碼？）保存后，再也恢復(fù)不成 \ud83d\ude3d 了。

jason680

回復(fù) 7# freeand

$ cat unicode.pl

use strict;
use warnings;

use Encode;

my $text = '\ud83d\ude3d';
$text =~ s/\\u(d[89ab]..)\\u(d[c-f]..)/
  pack("U",0x10000 + (hex($1)-0xD800)*0x400 + hex($2)-0xDC00)/egx;
$text =~ s/\\u([0-9a-fA-F]{4})/pack("U",hex($1))/eg;

# please refer http://perldoc.perl.org/perlunicode.html
# or use 'perldoc perlunicode' and search 0x10000
# $uni = 0x10000 + ($hi - 0xD800) * 0x400 + ($lo - 0xDC00);

$text = encode( "utf8", $text );
print "$text\n";

   

sjdy521

你為啥一定要糾結(jié)在\ud83d\ude3d上呢 這不是perl語言的unicode表示方式吧，

1. use Encode qw/encode/;print encode "utf8","\N{U+1F63D}"

復(fù)制代碼

freeand

jason680 發(fā)表于 2012-10-14 10:31
回復(fù) 7# freeand

$ cat unicode.pl

十分感謝！
unicode的轉(zhuǎn)換處理簡(jiǎn)單又復(fù)雜。