如何在 Clojure 中将序列转换为 byte[]？

Question

我需要将原始字节写入文件。我这样做的是：

(.write (FileOutputStream "/path") bytes)

...其中字节必须是 byte[] 类型。请注意它不能是Byte[]。

我尝试使用（字节）和/或（到数组）函数转换我的序列，但感到沮丧，一个例子：

user=> (bytes (into-array (filter #(not (= % 13)) (to-byte-array (File. "e:/vpn.bat")))))
java.lang.ClassCastException: [Ljava.lang.Byte; cannot be cast to [B (NO_SOURCE_FILE:0)

继续：

带有 Byte/TYPE 的到数组工作正常。然而，字节数组却没有。文件变空：

(import 'FileOutputStream)
(use 'clojure.contrib.io)

(defn remove-cr-from-file [file]
  (with-open [out (FileOutputStream. file)]
    (let [dirty-bytes (to-byte-array file)
          clean-seq   (filter #(not (= 13 %)) dirty-bytes)
          clean-bytes (byte-array clean-seq)]
      (.write out clean-bytes))))

Answer 1

还有字节数组函数。

如果需要打包字节数组，您可以查看 http://github.com/geoffsalmon/bytebuffer 或者直接使用底层的 Java ByteBuffer 东西。

Answer 2

更新：问题的新部分（“继续”）在最后得到了回答。

---

只是为了弄清楚这里实际发生了什么：

这个问题实际上说明了一个有趣的点：数组转换函数 -- 字节、整数、... -- 不是也不能用作转换函数。它们仅转换为目标类型，这特别意味着 bytes 的输入必须已经是适当类型的数组。

这是有道理的，因为从 int[] 转换为 long[] 并不是从不同角度查看数字的简单问题 - 您还必须分配数组的存储量不同——因此，只需查看运算符即可判断所讨论的操作是转换还是强制转换，这是一件好事。

强制转换在 Clojure 等动态语言中有用的原因与效率（您可以将强制转换与类型提示一起使用来加快速度）和互操作（您通常需要正确类型的东西）有关。编译器不能仅仅推断出正确的数组类型的原因是因为并不总是有足够的信息来这样做（更不用说甚至可能不清楚“正确”的类型可能是什么）。

要修复有问题的代码片段，可以使用 Byte/TYPE （如 Jieren 建议的那样）或跳过 into-array 和 bytes 和将 filter 包装在 bytes-array 中（按照 Brenton Ashworth 的建议）。

---

问题文本中新包含的代码的问题在于，它在读取文件内容之前在文件上打开一个 FileOutputStream 。打开 FOS 的行为已经清除了文件：

(with-open [out (FileOutputStream. some-file)]
  :foo)

; => :foo
; side effect: some-file is now empty

您必须从 with-open 之外的文件中读取：

(let [foo (byte-array
           (filter #(not= 13 %)
                   (to-byte-array some-file)))]
  (with-open [out (FileOutputStream. some-file)]
    (.write out foo)))

Answer 3

(into-array Byte/TYPE (filter #(not (= % 13)) (.getBytes (slurp "e:/vpn.bat"))))

如果您不介意使用字符串作为中介，尽管我认为您可以将 .getBytes 部分替换为 to-byte-array

我认为问题在于(bytes) 需要原始类型数组。如果您没有将其指定为(into-array)，它将返回装箱类型。