我目前正在做一个小型数据结构项目，我试图获得全国各地大学的数据;然后对它们进行一些数据操作。我在这里找到了这些数据:http://archive.ics.uci.edu/ml/machine-learning-databases/university/university.data
但是，这个数据的问题是(我从网站上引用):"这是一个LISP可读文件，在数据文件的末尾有一些相关的函数。"我打算把这些数据保存为。txt文件。
文件看起来有点像:
(def-instance Adelphi
(state newyork)
(control private)
(no-of-students thous:5-10)
(male:female ratio:30:70)
(student:faculty ratio:15:1)
(sat verbal 500)
(sat math 475)
(expenses thous$:7-10)
(percent-financial-aid 60)
(no-applicants thous:4-7)
(percent-admittance 70)
(percent-enrolled 40)
(academics scale:1-5 2)
(social scale:1-5 2)
(quality-of-life scale:1-5 2)
(academic-emphasis business-administration)
(academic-emphasis biology))
(def-instance Arizona-State
(state arizona)
(control state)
(no-of-students thous:20+)
(male:female ratio:50:50)
(student:faculty ratio:20:1)
(sat verbal 450)
(sat math 500)
(expenses thous$:4-7)
(percent-financial-aid 50)
(no-applicants thous:17+)
(percent-admittance 80)
(percent-enrolled 60)
(academics scale:1-5 3)
(social scale:1-5 4)
(quality-of-life scale:1-5 5)
(academic-emphasis business-education)
(academic-emphasis engineering)
(academic-emphasis accounting)
(academic-emphasis fine-arts))
......
The End Of the File:
(dfx def-instance (l)
(tlet (instance (car l) f-list (cdr l))
(cond ((or (null instance) (consp instance))
(msg t instance " is not a valid instance name (must be an atom)"))
(t (make:event instance)
(push instance !instances)
(:= (get instance 'features)
(tfor (f in f-list)
(when (cond ((or (atom f) (null (cdr f)))
(msg t f " is not a valid feature "
"(must be a 2 or 3 item list)") nil)
((consp (car f))
(msg t (car f) " is not a valid feature "
"name (must be an atom)") nil)
((and (cddr f) (consp (cadr f)))
(msg t (cadr f) " is not a valid feature "
"role (must be an atom)") nil)
(t t)))
(save (cond ((equal (length f) 3)
(make:feature (car f) (cadr f) (caddr f)))
(t (make:feature (car f) 'value (cadr f)))))))
instance))))
(set-if !instances nil)
(dex run-uniq-colleges (l n)
(tfor (sc in l)
(when (cond ((ge (length *events-added*) n))
((not (get sc 'duplicate))
(run-instance sc)
~ (remprop sc 'features)
nil)
(t (remprop sc 'features) nil)))
(stop)))
我最感兴趣的数据是学生人数，学术重点和学校名称。
非常感谢任何帮助。
您可以使用Lisp文件解析器，或者您可以忽略编写它的语言并专注于数据。你提到你需要:
- <
- 学校名称/gh>
- 学生人数 学术重点
您可以grep相关关键字(def-instance, no-of-students, academic-emphasis)，这将留给您(基于您的示例):
(def-instance Adelphi
(no-of-students thous:5-10)
(academic-emphasis business-administration)
(academic-emphasis biology))
(def-instance Arizona-State
(no-of-students thous:20+)
(academic-emphasis business-education)
(academic-emphasis engineering)
(academic-emphasis accounting)
(academic-emphasis fine-arts))
简化了特定解析器的编写(def-instance后跟名称，然后下一个def-instance之前的所有academic-emphasis和no-of-students都引用前面定义的名称)
您是否考虑过在Java VM的Lips解释器中运行该Lisp文件?
作为一个例子，与JSR-223不兼容的Armed Bear Common Lisp会很高兴地解析你的文件。
使用JSR-233，您将能够访问脚本定义的变量(如Adephi和其他)，如示例所示。
编辑从评论请求中，一些补充解释(尽管对我来说似乎很简单)。
因此，假设您的类路径中有Armed bear Common Lisp，并且file是脚本的绝对文件名(此示例很大程度上受到JSR-223示例的启发/借鉴)。
首先，安装脚本引擎
ScriptEngineManager scriptManager = new ScriptEngineManager();
scriptManager.registerEngineExtension("lisp", new AbclScriptEngineFactory());
ScriptEngine lispEngine = scriptManager.getEngineByExtension("lisp");
Object eval = lispEngine.eval(new FileReader(file));
现在，带着一个小调试器，去看看里面有什么(我没有足够的勇气安装所有的环境来为你做这项工作)
如果你要解析lisp，你需要知道'栈'。
当你遇到(时，你把它压入堆栈。你现在处于一个新的作用域，比你之前的位置高一级。
同样地，当你遇到)时，你会弹出堆栈-完成该层并向下一级。
在这种情况下，你在空状态开始。你遇到的第一件事是(，所以现在你处于"定义"状态。(这是我编的。随便你怎么称呼它。)您将遇到def-instance令牌，然后是大学的名称。继续阅读，会遇到另一个((忽略空格，只解析标记)。这会使您进入属性状态。(这也是我瞎编的。)由于您是从定义跳到属性，现在可以创建对象了。比如UnivData data = new UnivData(parsedToken) (Where parsedToken求值为"Adelphi")
好的，回到属性-你已经读了第一个(，然后你读了"状态"one_answers"纽约"，然后是另一个)。因此，你可以将当前UnivData的状态变量赋值给newyork。
您对所有属性重复此行为，但是在学术强调之后您会遇到额外的)。这是提示您关闭当前对象并开始寻找另一个对象。
一开始，我很想说使用Map。存在多个学术强调令牌的事实表明，您应该使用更好的数据结构，也许是Map>。它甚至可能更好地滚动您自己的Property类，它有一个String，或者如果它获得多个值，它切换到字符串列表。