将 ByteString 漂亮地打印为十六进制半字节

Question

处理字节串并漂亮地打印其十六进制（0-F）表示的惯用方法是什么？

putStrLn . show . B.unpack
-- [1,126]

在进一步的工作中，

putStrLn . show . map (\x -> N.showIntAtBase 16 (DC.intToDigit) x "") . B.unpack
["1","7e"]

但我真正想要的是

["1","7","e"]

或者更好的是，

['1','7','e']

我可以 munge up [“1”，“7e”] 但字符串操作，而我宁愿进行数字操作。我是否需要向下移动和屏蔽数值？

Answer 1

您现在可以使用 Data.ByteString。生成器。要将 ByteString 打印为其等价的十六进制（每个字节有两个十六进制数字，以正确的顺序且高效），只需使用：

toLazyByteString . byteStringHex

或

toLazyByteString . lazyByteStringHex

根据您使用的 ByteString 风格有作为输入。

Answer 2

我想详细说明马克斯·塔尔迪金的答案（我已投赞成票），我认为这个答案过于复杂。不需要 NoMonomorphismRestriction、printf 或 Data.List。

这是我的版本：

import qualified Data.ByteString as B
import Numeric (showHex)

prettyPrint :: B.ByteString -> String
prettyPrint = concat . map (flip showHex "") . B.unpack

main :: IO ()
main = putStrLn . prettyPrint . B.pack $ [102, 117, 110]

Answer 3

像这样的东西：

{-# LANGUAGE NoMonomorphismRestriction #-}

import qualified Data.ByteString as B
import Text.Printf
import Data.List
import Numeric

hex = foldr showHex "" . B.unpack
list = printf "[%s]" . concat . intersperse "," . map show

测试：

> let x = B.pack [102,117,110]
> list . hex $ x
"['6','6','7','5','6','e']"

Upd哦，有一个愚蠢的内存泄漏：当然你应该用foldl'替换foldr（因为懒惰是此处不需要）：

hex = foldl' (flip showHex) "" . B.unpack

Answer 4

您有 ["1","7e"] :: [String]
concat ["1", "7e"] 是 "17e" :: String ，它等于 [Char] 且等于 ['1',' 7','e'] :: [字符]。

您可以将该字符串分成几部分：

> Data.List.Split.splitEvery 1 . concat $ ["1", "7e"]
["1","7","e"]
it :: [[Char]]

Answer 5

如果您只想对 ByteStrings 进行常规的十六进制编码/解码，则可以使用内存包。他们将十六进制编码称为 Base16。

>>> let input = "Is 3 > 2?" :: ByteString
>>> let convertedTo base = convertToBase base input :: ByteString
>>> convertedTo Base16
"49732033203e20323f"

完整文档： https:// /hackage.haskell.org/package/memory-0.18.0/docs/Data-ByteArray-Encoding.html#t:Base