Question

我可以打开一个zip条目并调整内容，但我无法弄清楚如何保存它们。

CL ZIP的API缺乏。

规格：

ZIP

Quicklisp

MacPorts CLISP 2.49

Aquamacs 2.1（Emacs 23.2）

Mac OS X 10.6.4

MacBook Pro 5,1

; Removes newlines at the beginning of PRE tags in Sigil-edited ePub files.
;
; See http://code.google.com/p/sigil/issues/detail?id=655
;
; Andrew Pennebaker
; 16 Nov 2010

; Requires Quicklisp.
; http://www.quicklisp.org/
(ql:quickload "zip")
(ql:quickload "cl-ppcre")

(defvar *epub* nil)
(defvar *epub-contents* nil)
(defvar *epub-out* nil)

(defun load-epub (filename)
  (setq *epub* (zip:open-zipfile filename)))

(defun close-epub ()
  (zip:close-zipfile *epub*)
  (setq *epub* nil)
  (setq *epub-contents* nil))

(defun gather-epub-contents ()
    (zip:do-zipfile-entries (name entry *epub*)
      (push name *epub-contents*)))

(defun is-html-file (name)
  (if (cl-ppcre:scan ".+\\.htm[l]?$" name) t nil))

(defun entry-name-to-html (name)
  (flexi-streams:octets-to-string
   (zip:zipfile-entry-contents
    (zip:get-zipfile-entry name *epub*))))

(defun clean (html)
  (values
   (cl-ppcre:regex-replace-all
    "<pre[^>]*>(\\s)*"
    (cl-ppcre:regex-replace-all "\\s+</pre>" html "</pre>")
    "<pre>")))

Answer 1

根据Common Lisp ZIP库的文档，您必须获取一个单独的句柄来写入zip文件。您可以将内容提取到文件夹，调整内容并通过一次调用(zip path-name source-folder)来压缩整个文件夹。

Answer 2

使用临时文件，您可以解压缩，修改和重新压缩。

请参阅sigil-clean.cl

如何在Common Lisp中写入zip文件？

2 个答案: