1st clojure script to find the bad json strings in a file.

lmi_json_check.clj

#_(defdeps ; defeps call for lein oneoff
	[[org.clojure/clojure "1.3.0"]
	 [clj-json "0.5.0"]])

(ns jsoncheck
	(:require [clj-json [core :as json]]
			  [clojure.java.io :as io]))

(defn processfile [file-name checkfn]
"Takes file path and function to parse each line."
	(with-open [rdr (io/reader file-name)]
		(doseq [line (line-seq rdr)]
			(checkfn line))))

(defn parseline [line]
"Breaks line, deconstructs a split call and tries to decode the json. Catches exeception and marks it as a failure."
	(let [[lmi layout] (clojure.string/split line #"\t+")]
		(try
			(json/parse-string layout)
			(catch Exception e (prn lmi)))))

(processfile "/Users/mikeflynn/Desktop/keyword_layouts.tsv" parseline)