perl utf8從iso-8859-1編碼返回不同的結果到javascript utf8編碼

在Perl中，如果我從iso-8859-1到utf8編碼如下。perl utf8從iso-8859-1編碼返回不同的結果到javascript utf8編碼

(00000) 0a0b0111 666c6578 74696d65 05427351 ....flextime.BsQ 
(00016) f4aea370 00137469 6d657374 616d7009 ...p..timestamp. 
(00032) 05010541 d3c8a8a2 40000004 aff01403 [email protected] 
(00048) 61090301 090b0104 01040204 03040404 a............... 
(00064) 0501         ..

這是結果：

(00000) 0a0b0111 666c6578 74696d65 05427351 ....flextime.BsQ 
(00016) c3b4c2ae c2a37000 1374696d 65737461 ......p..timesta 
(00032) 6d700905 010541c3 93c388c2 a8c2a240 [email protected] 
(00048) 000004c2 afc3b014 03610903 01090b01 .........a...... 
(00064) 04010402 04030404 040501    ...........

如果我解碼perl的結果使用JavaScript，這是我所得到的：

00000000: 00 0b 00 01 00 11 00 66 00 6c 00 65 00 78 00 74 00 69 00 6d 00 65 00 05 00 42 00 73 00 51 4b a3 |flextimeBsQ.| 
00000016: 00 70 00 00 00 13 00 74 00 69 00 6d 00 65 00 73 00 74 00 61 00 6d 00 70 00 09 00 05 00 01 00 05 |ptimestamp.| 
00000032: 00 41 04 c8 88 80 00 00 00 00 00 04 fc 14 00 03 00 61 00 09 00 03 00 01 00 09 00 0b 00 01 00 04 |A...a..| 
00000048: 00 01 00 04 00 02 00 04 00 03 00 04 00 04 00 04 00 05 00 01 .. .. .. .. .. .. .. .. .. .. .. .. |  |

誰能幫助我？源是從閃存發送到perl服務器的AMF對象，該服務器將其重新發送到JavaScript。數據發送的方式（從Flash到Perl到JavaScript）不會更改任何數據。

的代碼在Perl是：

use Encoding; 
from_to($out,"iso-8859-1","utf8",Encode::FB_WARN);

如果我使用默認的UTF8編碼在Perl中，我得到了相同的結果。

這已更新爲包含十六進制轉儲而不是二進制。我需要一個perl中的編碼方法，它將返回與javascript相同的結果。可以測試using this page。

任何幫助將不勝感激。

來源

2012-01-27 Zone12

你爲什麼編碼二進制數據？編碼對文本字符串有意義。 – choroba 2012-01-27 11:22:19

你粘貼了[二進制數據]（http://enwp.org/Action_Message_Format）並將其搞亂了，即使我們進行了替換，這種方式也無法使用，NUL等不可打印的字符將會丟失。 [編輯你的問題]（http://stackoverflow.com/posts/9031995/edit）並改爲發佈hexdump。 – daxim 2012-01-27 11:22:27

Websockets（javascript連接）只能傳輸或接收utf8編碼的字符串。如果您傳送任何其他內容，則會發出抱怨並斷開連接。 – Zone12 2012-01-27 13:56:10

半答案：再次

三個序列，在PERLQQ符號。

my $octets = 
"\x0a\x0b\x01\x11\x66\x6c\x65\x78\x74\x69\x6d\x65\x05\x42\x73\x51". 
"\xf4\xae\xa3\x70\x00\x13\x74\x69\x6d\x65\x73\x74\x61\x6d\x70\x09". 
"\x05\x01\x05\x41\xd3\xc8\xa8\xa2\x40\x00\x00\x04\xaf\xf0\x14\x03". 
"\x61\x09\x03\x01\x09\x0b\x01\x04\x01\x04\x02\x04\x03\x04\x04\x04". 
"\x05\x01"; 

my $utf8_encoded_octets = 
"\x0a\x0b\x01\x11\x66\x6c\x65\x78\x74\x69\x6d\x65\x05\x42\x73\x51". 
"\xc3\xb4\xc2\xae\xc2\xa3\x70\x00\x13\x74\x69\x6d\x65\x73\x74\x61". 
"\x6d\x70\x09\x05\x01\x05\x41\xc3\x93\xc3\x88\xc2\xa8\xc2\xa2\x40". 
"\x00\x00\x04\xc2\xaf\xc3\xb0\x14\x03\x61\x09\x03\x01\x09\x0b\x01". 
"\x04\x01\x04\x02\x04\x03\x04\x04\x04\x05\x01"; 

my $received = 
"\x00\x0b\x00\x01\x00\x11\x00\x66\x00\x6c\x00\x65\x00\x78\x00\x74". 
"\x00\x69\x00\x6d\x00\x65\x00\x05\x00\x42\x00\x73\x00\x51\x4b\xa3". 
"\x00\x70\x00\x00\x00\x13\x00\x74\x00\x69\x00\x6d\x00\x65\x00\x73". 
"\x00\x74\x00\x61\x00\x6d\x00\x70\x00\x09\x00\x05\x00\x01\x00\x05". 
"\x00\x41\x04\xc8\x88\x80\x00\x00\x00\x00\x00\x04\xfc\x14\x00\x03". 
"\x00\x61\x00\x09\x00\x03\x00\x01\x00\x09\x00\x0b\x00\x01\x00\x04". 
"\x00\x01\x00\x04\x00\x02\x00\x04\x00\x03\x00\x04\x00\x04\x00\x04". 
"\x00\x05\x00\x01";

第三個是UTF-16BE編碼的00列是提示。解碼結果的八位字節序列與第一個類似，但缺少第一個字節0a。其他差異在下面標記爲*，我沒有解釋這些。

Test::HexDifferences::eq_or_dump_diff(
    $octets, 
    "\x0a".encode('UTF-8', decode('UTF-16BE', $received)) 
); 

+---+----------------------------+----------------------------+ 
| Ln|Got       |Expected     | 
+---+----------------------------+----------------------------+ 
| 1|0000 : 0A 0B 01 11 : .... |0000 : 0A 0B 01 11 : .... | 
| 2|0004 : 66 6C 65 78 : flex |0004 : 66 6C 65 78 : flex | 
| 3|0008 : 74 69 6D 65 : time |0008 : 74 69 6D 65 : time | 
| 4|000C : 05 42 73 51 : .BsQ |000C : 05 42 73 51 : .BsQ | 
* 5|0010 : F4 AE A3 70 : ...p |0010 : E4 AE A3 70 : ...p * 
| 6|0014 : 00 13 74 69 : ..ti |0014 : 00 13 74 69 : ..ti | 
| 7|0018 : 6D 65 73 74 : mest |0018 : 6D 65 73 74 : mest | 
| 8|001C : 61 6D 70 09 : amp. |001C : 61 6D 70 09 : amp. | 
| 9|0020 : 05 01 05 41 : ...A |0020 : 05 01 05 41 : ...A | 
* 10|0024 : D3 C8 A8 A2 : .... |0024 : D3 88 E8 A2 : .... * 
* 11|0028 : 40 00 00 04 : @... |0028 : 80 00 00 04 : .... * 
* 12|002C : AF F0 14 03 : .... |002C : EF B0 94 03 : .... * 
| 13|0030 : 61 09 03 01 : a... |0030 : 61 09 03 01 : a... | 
| 14|0034 : 09 0B 01 04 : .... |0034 : 09 0B 01 04 : .... | 
| 15|0038 : 01 04 02 04 : .... |0038 : 01 04 02 04 : .... | 
| 16|003C : 03 04 04 04 : .... |003C : 03 04 04 04 : .... | 
| 17|0040 : 05 01  : ..  |0040 : 05 01  : ..  | 
+---+----------------------------+----------------------------+

來源

2012-01-27 15:41:52 daxim

謝謝，它似乎現在我的問題是與websocket，而不是perl。 – Zone12 2012-01-27 23:11:38

perl utf8從iso-8859-1編碼返回不同的結果到javascript utf8編碼

回答

相關問題