clojure - 无法解析 Cascalog 中谓词中的符号

Question

我有这个问题:

(?<- (hfs-textline data-out :sinkmode :replace)
        [?item1 ?item2]
        ((hfs-textline data-in) ?line)
        (data-line? ?line)
        (filter-out-data (#(vector (s/split % #",")) ?line) :> ?item1 ?item2)
        )

(defn data-line? [^String row]
  (and (not= -1 (.indexOf row ","))
       (not (.endsWith row ","))
       (not (.startsWith row ","))))

(defn filter-out-data [data]
  (<- [?item1 ?item2]
      (data :#> 9 {4 ?item1
                  8 ?item2})))

查询逐行读取 CSV 文件并检查满足有效数据条件的行 (data-line?) - 这部分有效。然后它应该用逗号分隔行，并将向量传递给 filter-out-data 函数，该函数又返回从该向量中提取的两个项目。当我执行查询时，出现以下错误:无法解析符号:?line 在此上下文中。

我一直在尝试不同的方式来传递拆分的结果(我希望它是灵活的，因为拆分的大小会有所不同)。我刚刚开始使用 Clojure 和 Cascalog，如果您能指出正确的方向，我将不胜感激。谢谢!

Answer 1

filter-out-data 函数生成了一个子查询，但您正试图将其用作谓词，但这是行不通的。

我建议您将表达式 (#(vector (s/split % #",")) ?line) 中的所有逻辑移动到您仍然可以调用的常规函数​​中 填写数据。

(defn filter-out-data [data]
  (let [[_ _ _ item1 _ _ _ item2] (s/split % #"," data))]
    [item1 item2]))

(?<- (hfs-textline data-out :sinkmode :replace)
    [?item1 ?item2]
    ((hfs-textline data-in) ?line)
    (data-line? ?line)
    (filter-out-data ?line :> ?item1 ?item2))

但是，您可以使用像 data.csv 这样的 CSV 库来进一步简化代码。 .