我正在使用Clojure,并想获取一个堆栈跟踪,以便记录(最好能够将其作为字符串获取)。
我看到(.getStackTrace e)
返回一个StackTraceElement[]
,但我不知道如何从中提取有意义的信息。我的第二种方法是使用PrintWriter作为参数的(.printStackTrace e)
(因为我知道在Java中这是可能的),但我似乎没有得到正确的语法。
谢谢。
我正在使用Clojure,并想获取一个堆栈跟踪,以便记录(最好能够将其作为字符串获取)。
我看到(.getStackTrace e)
返回一个StackTraceElement[]
,但我不知道如何从中提取有意义的信息。我的第二种方法是使用PrintWriter作为参数的(.printStackTrace e)
(因为我知道在Java中这是可能的),但我似乎没有得到正确的语法。
谢谢。
如果number23_cn的解决方案有点过于复杂,这就是您如何将.getStackTrace的结果作为字符串使用(然后可以打印、记录等)。
(try (/ 1 0)
(catch Throwable t
(map str (.getStackTrace t))))
使用 clojure.repl.pst
获取堆栈跟踪信息,并将 *err*
绑定到 java.io.StringWriter
上:
(use '[clojure.repl :only (pst)])
(defmacro with-err-str
"Evaluates exprs in a context in which *err* is bound to a fresh
StringWriter. Returns the string created by any nested printing
calls."
[& body]
`(let [s# (new java.io.StringWriter)]
(binding [*err* s#]
~@body
(str s#))))
(try
(/ 1 0)
(catch Exception e
(let [s (with-err-str (pst e 36))]
(println "Error log:")
(println s))))
这是对noisesmith答案的微小改进。它不会留下lazy seq,并具有美化功能:
(apply str (interpose "\n" (.getStackTrace t)))
clojure.core
中的pr-str
函数:(catch Exception e
(l/error "Ho no, an exception:" (pr-str e)))
#error {
:cause nil
:via
[{:type java.lang.NullPointerException
:message nil
:at [my_app$fn__47429$fn__47430 invoke "my_app.clj" 30]}]
:trace
[[my_app$fn__47429$fn__47430 invoke "my_app.clj" 30]
[my_app$my_func invokeStatic "my_app.clj" 13]
[my_app$my_func invoke "my_app.clj" 10]
[my_app$other_func$fn__29431 invoke "my_app.clj" 19]
[my_app$other_func_BANG_ invokeStatic "my_app.clj" 28]
[my_app$other_func_BANG_ invoke "my_app.clj" 27]
[my_app$yet_another_func invokeStatic "my_app.clj" 40]
[my_app$yet_another_func invoke "my_app.clj" 37]
[clojure.core$fn__8072$fn__8074 invoke "core.clj" 6760]
[clojure.core.protocols$iter_reduce invokeStatic "protocols.clj" 49]
[clojure.core.protocols$fn__7839 invokeStatic "protocols.clj" 75]
[clojure.core.protocols$fn__7839 invoke "protocols.clj" 75]
[clojure.core.protocols$fn__7781$G__7776__7794 invoke "protocols.clj" 13]
[clojure.core$reduce invokeStatic "core.clj" 6748]
[clojure.core$fn__8072 invokeStatic "core.clj" 6750]
[clojure.core$fn__8072 invoke "core.clj" 6750]
[clojure.core.protocols$fn__7860$G__7855__7869 invoke "protocols.clj" 175]
[clojure.core$reduce_kv invokeStatic "core.clj" 6776]
[clojure.core$reduce_kv invoke "core.clj" 6767]
[my_app$yet_another_func invokeStatic "data_streamer.clj" 48]
[my_app$yet_another_func invoke "data_streamer.clj" 47]
[my_app$other_func invokeStatic "data_streamer.clj" 66]
[my_app$other_func invoke "data_streamer.clj" 58]
[my_app$other_func$fn__48385 invoke "my_app.clj" 73]
[clojure.core.async$thread_call$fn__6553 invoke "async.clj" 442]
[clojure.lang.AFn run "AFn.java" 22]
[java.util.concurrent.ThreadPoolExecutor runWorker "ThreadPoolExecutor.java" 1135]
[java.util.concurrent.ThreadPoolExecutor$Worker run "ThreadPoolExecutor.java" 635]
[java.lang.Thread run "Thread.java" 844]]}
with-out-str
。(try
(name nil)
(catch Exception e
(with-out-str (println e))))
(apply str (interpose "\n" (.getStackTrace t)))
也非常有效。 - dsm