Question

我可能不理解riemann / clojure中的一些关键概念。我尝试解析字段：来自格式为"aaa:1234.bbbb.cccc.ddddd"的事件的服务，并使用函数＆＃34;和＆＃34;将新字段pid添加到事件中。任何人都可以向我解释为什么riemann.config中的代码会抛出异常：

...
(let [index (default :ttl 300 (update-index (index)))]

 ; Inbound events will be passed to these streams:
 (streams
 index
 (where (service #"(\w+):(\d+)\.(\w+)\.(\w+)\.(\w+)")
   (with :pid (str/replace service #"(\w+):(\d+)\.(\w+)\.(\w+)\.(\w+)" "$2")
)
)
...

user=> (riemann.bin/reload!)
#error {
 :cause "Unable to resolve symbol: service in this context"
 :via
 [{:type clojure.lang.Compiler$CompilerException
 :message "java.lang.RuntimeException: Unable to resolve symbol: service in this context, compiling:(/etc/riemann/riemann.config:73:19)"

Answer 1

我认为(where (service ,,,))只是where的{{1}}宏的(where* (fn [event] (let [service (:service event)] ,,,)))的语法糖，这就是为什么你不能在{service的主体中使用where的原因。 1}}：它不是那里定义的名称。

查看documentation for，在我看来你应该使用smap：

(where (service #"(\w+):(\d+)\.(\w+)\.(\w+)\.(\w+)")
   (smap (fn [e] (assoc e :pid (str/replace (:service e) #"(\w+):(\d+)\.(\w+)\.(\w+)\.(\w+)" "$2")))))

向黎曼事件注入新的领域

1 个答案: