将字节中的数据与十六进制数进行比较

如何解决将字节中的数据与十六进制数进行比较

我需要从标准输入读取数据，我需要检查 2 个字节是否等于 0x001 或 0x002，然后根据值执行两种类型的代码之一。这是我尝试过的：

main = do
  args <- getArgs 
  forM_ args (\file -> do
    content <- readFile file
    let ls = lines content
    case ls of
      [] -> putStrLn "no line in file"
      (firstLine:_) -> putStrLn firstLine
    )

我不确定读取使用的是什么数字系统，因为即使我在标准输入上写入 0001 时，打印类型的值作为十进制和十六进制也返回完全不同的东西

解决方法

字符 0x0001 和 0x0002 是 UTF-8 中的控制字符，您将无法手动输入它们。

如果您尝试比较字符输入 - 使用 gets 和 atoi 将 stdin 的基于字符的输入转换为整数，或者如果您想继续使用 read - 比较字符 '0' '0' '0' '1'/'2' 而不是值以获得正确的结果

您没有说明您使用的是哪种操作系统。如果您使用的是 Unix 或 Linux 或 MacOS，在命令行中，可以很容易地设置测试此类程序的简单方法。但是，如果您使用的是 Windows，抱歉，我在这里的回答不会很有用。

（我还将大量使用 Unix/Linux “管道”概念，即垂直条 | 将一个程序的输出发送到下一个程序的输入。如果你不熟悉这个概念，我的回答一开始可能没有多大意义。）

如果是我，把你的程序编译成a.out，我就直接跑

echo 00 00  00 01  00 02 | unhex | a.out

事实上，我确实将您的程序编译为a.out，并尝试了此方法，但...它不起作用。它不起作用，因为我的机器（和你的机器一样）使用小端字节序，所以我应该做的是

echo 00 00  01 00  02 00 | unhex | a.out

现在完美运行。

正如您在尝试后发现的那样，唯一的问题是 unhex 不是标准程序。它是我个人 bin 目录中的一个小工具。它非常方便，如果类似的东西是标准的，它会非常有用，但事实并非如此。（可能有一个半标准的 Linux 实用程序可以用于执行此类操作，但我不知道它是什么。）

非常标准的并且您可能可以使用它的是 base-64 解码器。问题在于没有好的方法可以手动生成您需要的输入。但是我可以为您生成它（使用我的 unhexer）。如果你能跑

echo AAABAAIA | base64 -d | a.out

这将对您的程序执行等效测试。 AAABAAIA 是三个 16 位小端字 0000 0001 和 0002 的 base-64 编码，您可以通过运行看到

echo AAABAAIA | base64 -d | od -h

在某些系统上，base64 命令使用 -D 选项而不是 -d 来请求解码。也就是说，如果你收到类似“invalid option -- d”这样的错误信息，你可以试试

echo AAABAAIA | base64 -D | a.out