我在Darwin上使用OpenMCL,并且我想做一些类似以下的事情:
(loop for f in (directory "somedir")
collect (some-per-file-processing f))
但是我无法得到除了NIL
以外的其它内容,而且似乎在网上也找不到什么好的解释(除了“每个系统都不一样”)。
有什么指针吗?
我在Darwin上使用OpenMCL,并且我想做一些类似以下的事情:
(loop for f in (directory "somedir")
collect (some-per-file-processing f))
但是我无法得到除了NIL
以外的其它内容,而且似乎在网上也找不到什么好的解释(除了“每个系统都不一样”)。
有什么指针吗?
指定路径名有两种基本方法:
显然,字符串取决于平台:例如 Unix 语法与 Windows 语法不同。
"/Users/foo/bar.text" is a valid pathname
"/Users/foo/*/foo.*" is a valid pathname with two wildcards
你可以通过字符串创建一个路径名称对象:? (pathname "/Users/bar/foo.text")
#P"/Users/bar/foo.text"
#p确保在读取时创建一个路径名对象(而不是一个字符串)。
? #P"/Users/bar/foo.text"
#P"/Users/bar/foo.text"
在内部,Common Lisp 使用路径名对象,但如果需要的话,它允许您使用普通字符串并从中创建路径名对象。
当Common Lisp看到未指定所有组件的路径名(例如目录丢失)时,它会从变量*DEFAULT-PATHNAME-DEFAULTS*的路径名对象中填充组件。
使用DESCRIBE函数可以查看路径名的组件(这里是Clozure CL):
? (describe (pathname "/Users/bar/*.text"))
#P"/Users/bar/*.text"
Type: PATHNAME
Class: #<BUILT-IN-CLASS PATHNAME>
TYPE: (PATHNAME . #<CCL::CLASS-WRAPPER PATHNAME #x3000401D03BD>)
%PATHNAME-DIRECTORY: (:ABSOLUTE "Users" "bar")
%PATHNAME-NAME: :WILD
%PATHNAME-TYPE: "text"
%PHYSICAL-PATHNAME-VERSION: :NEWEST
%PHYSICAL-PATHNAME-DEVICE: NIL
MAKE-PATHNAME是该函数,它需要一些关键字参数来指定组件。
有时也有用的是基于现有路径名创建新路径名:
(make-pathname :name "foo" :defaults (pathname "/Users/bar/baz.text"))
如果你使用DIRECTORY命令,使用带有通配符的路径名会很有用。 DIRECTORY会返回匹配的路径名列表。名称“DIRECTORY”有点误导性,因为DIRECTORY不会列出目录的内容,而是针对(通常)带通配符的路径名列出匹配的路径名。通配符可以匹配组件中的字符序列,例如“/foo/s*c/list* .l*”。还有一个通配符 ** ,用于匹配目录层次结构的部分,如“/foo/** /test.lisp”,它将匹配目录foo及其子目录下所有的test.lisp文件。 (directory "/Users/foo/Lisp/**/*.lisp")
上面的代码应该返回'/Users/foo/Lisp/'目录及其所有子目录中所有的'lisp'文件列表。
如果只需要返回单个目录中的'.c'文件,请使用以下代码:
(directory "/Users/foo/c/src/*.c")
请注意,DIRECTORY返回的是路径名称对象列表(不是字符串列表)。? (directory (make-pathname
:name "md5"
:type :wild
:directory '(:absolute "Lisp" "cl-http" "cl-http-342" "server")))
(#P"/Lisp/cl-http/cl-http-342/server/md5.lisp"
#P"/Lisp/cl-http/cl-http-342/server/md5.xfasl")
上述代码使用了由MAKE-PATHNAME创建的路径名对象。它返回所有与 /Lisp/cl-http/cl-http-342/server/md5.* 匹配的文件。
这等同于:
(directory "/Lisp/cl-http/cl-http-342/server/md5.*")
这个更短,但取决于Unix路径名的语法。
你的路径名中是否包含通配符?Common Lisp的路径名相关内容一开始可能有些难以理解,至少对我来说是这样...正如CLHS在directory
函数中所述:
如果pathspec不是通配符,则结果列表将包含零个或一个元素。
为了使你的路径名包括通配符,你可以尝试使用make-pathname函数,例如
(directory (make-pathname :directory '(:absolute "srv" "hunchentoot") :name :wild :type "lisp"))
甚至可以
(directory (make-pathname :directory '(:absolute "srv" "hunchentoot") :name :wild :type :wild))
我发现CL-FAD库对于处理路径名和文件系统非常有帮助。特别是,它的list-directory
函数可能比普通标准的directory
函数更易于使用。
现代的Common Lisp库实现目录列表功能是IOLIB。
它的工作原理如下:
CL-USER> (iolib.os:list-directory "/etc/apt")
(#/p/"trusted.gpg~" #/p/"secring.gpg" #/p/"trustdb.gpg" #/p/"sources.list"
#/p/"sources.list~" #/p/"apt-file.conf" #/p/"apt.conf.d" #/p/"trusted.gpg"
#/p/"sources.list.d")
uiop:directory-files
。str:contains? 可以使用search
来完成。;; searching for "ref".
(setf *data-directory* "~/books/lisp")
(remove-if-not (lambda (it)
(str:contains? "ref" (namestring it)))
(osicat:list-directory *data-directory*))
(#P"~/books/lisp/common-lisp-quick-reference-clqr-a4-booklet-all.pdf"
#P"~/books/lisp/common-lisp-quick-reference-clqr-a4-consec.pdf"
#P"~/books/lisp/commonLisp-interactive-approach-reference-buffalo.pdf")
它可以通过正确使用通配符来改进。但是,这是一个您现在可以使用的片段:)
参考资料: