如何用Clojure的惯用方式实现Perl中pack/unpack函数的功能？

Perl的pack/unpack通过模板字符串快速在二进制数据和高级数据类型间转换，Clojure没有直接对应的内置函数，但可以通过以下两种惯用方式实现等价功能：

1. 无依赖：基于Java NIO ByteBuffer手动处理 #

Clojure可以直接调用Java的java.nio.ByteBuffer来手动控制二进制数据的打包和解包，适合简单场景或需要完全自定义处理逻辑的情况。

示例：打包int和字符串 #

(require '[clojure.java.io :as io])

; 打包：将整数42和字符串"hello"转为二进制字节数组
(defn pack-simple
  []
  (let [str-bytes (.getBytes "hello" "UTF-8")
        ; 分配足够的缓冲区：4字节int + 字符串字节长度
        buf (java.nio.ByteBuffer/allocate (+ 4 (count str-bytes)))]
    (.putInt buf 42) ; 写入int类型数据
    (.put buf str-bytes) ; 写入字符串字节
    (.flip buf) ; 切换为读模式
    (let [result (byte-array (.remaining buf))]
      (.get buf result)
      result)))

示例：解包二进制数据 #

; 解包：从字节数组还原int和字符串
(defn unpack-simple
  [bytes]
  (let [buf (java.nio.ByteBuffer/wrap bytes)
        int-val (.getInt buf)
        ; 读取剩余字节转为字符串
        str-val (String. (byte-array (.remaining buf)) "UTF-8")]
    {:int int-val, :string str-val}))

这种方式需要手动处理字节序（默认大端，可通过.order切换为java.nio.ByteOrder/LITTLE_ENDIAN）、类型长度等细节，和Perl模板的底层逻辑一致，但需要手动编码这些规则。

2. 惯用方案：使用data.bin库实现模板式转换 #

Clojure生态中的data.bin库专门设计用于声明式的二进制数据处理，语法和Perl的pack/unpack模板思路高度一致，是处理复杂二进制格式的首选方案。

步骤1：添加依赖 #

在Leiningen的project.clj中添加：

[org.clojure/data.bin "0.2.5"]

或在deps.edn中添加：

org.clojure/data.bin {:mvn/version "0.2.5"}

示例：模板式打包和解包 #

(require '[clojure.data.bin :as bin])

; 定义对应Perl模板"iZ*"的格式：小端int + 空终止字符串
(def my-format
  (bin/spec
    [:int32 :little-endian] ; 对应Perl的`i`（4字节小端整数）
    [:string :utf-8 :null-terminated])) ; 对应Perl的`Z*`（空终止UTF-8字符串）

; 打包数据
(def packed-data (bin/pack my-format [42 "hello"]))

; 解包数据
(def unpacked-data (bin/unpack my-format packed-data))
; => [42 "hello"]

data.bin支持大部分Perlpack/unpack的模板类型，包括不同字节序的整数、浮点数、固定长度字符串、字节数组等，还能定义嵌套的复合格式，完全覆盖Perl的核心功能，同时符合Clojure的声明式编程风格。

内容的提问来源于stack exchange，提问作者earl_igginotnum