如何查找或生成DynamicClassLoader中加载类对应的class文件

Clojure动态生成的类（比如闭包、eval执行产生的类）默认都是由DynamicClassLoader加载的，大部分场景下没有预先生成物理class文件，你可以通过以下逻辑实现需求：

补全后的完整代码 #

(let [f #(+ 1 %)
      cls (class f)
      cl (.getClassLoader cls)
      ;; 类名转标准class资源路径：替换.为/，添加.class后缀
      class-res-path (str (.replace (.getName cls) "." "/") ".class")
      ;; 先尝试从类加载器读取已有的class资源
      class-url (.getResource cl class-res-path)]
  (println "类名：" (.getName cls))

  (if class-url
    ;; 已存在物理class文件的场景，直接返回路径
    (println "Class文件路径：" (.getPath class-url))
    ;; 动态生成无物理文件的场景，读取类字节码写出到本地
    (let [;; 从DynamicClassLoader获取该类的字节码
          class-bytes (.getClassBytes ^clojure.lang.DynamicClassLoader cl (.getName cls))
          ;; 自定义输出路径，此处以当前工作目录为根
          output-file (java.io.File. class-res-path)]
      ;; 自动创建不存在的父目录
      (.mkdirs (.getParentFile output-file))
      ;; 字节码写出到文件
      (with-open [out-stream (java.io.FileOutputStream. output-file)]
        (.write out-stream class-bytes))
      (println "动态类已写出到路径：" (.getAbsolutePath output-file)))))

注意事项 #

• 只有Clojure官方的clojure.lang.DynamicClassLoader提供getClassBytes方法，如果你替换了自定义类加载器需要适配对应接口
• 如果类是从Jar包中加载的，获取到的URL会是jar:协议格式，需要额外解析才能拿到Jar包的本地路径
• 运行时动态生成的类默认不会落盘，必须主动执行写出操作才能得到物理class文件

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