racket - 在 Racket 中解压一个条目到内存

Question

我正在尝试读取文件条目。我现在的程序:

#lang racket
(require file/unzip)
(require xml)

(define (get-content file-name)
  (let ([in (open-input-file file-name #:mode 'binary)])
    (unzip-entry in
                 (read-zip-directory in)
                 #"content.xml")))

当前程序将文件 content.xml 写入文件系统。但我需要将它存储在内存中(作为输出端口、字符串或某些返回值)而不是污染文件系统。你能告诉我我该怎么做吗？

Answer 1

是的，您可以通过将自定义 entry-reader 参数传递给 unzip-entry 来做到这一点。以下是如何操作的示例:

(define (unzip-entry->bytes path zipdir entry)
  (call-with-output-bytes
   (lambda (out)
     (unzip-entry path zipdir entry
                  (lambda (name dir? in)
                    (copy-port in out))))))