haskell - 使用 zip-conduit 列出 zip 文件

Question

使用zip-conduit库，我想列出 ZIP 存档中的条目。我只想每行打印它们的文件名 - 类似于 unzip -l，但没有任何附加信息。

注意:此问题是使用问答方式回答的，因此故意不显示任何研究工作!

Answer 1

您可以使用entryNames功能。通过修改the ZIP extraction example我们可以打印名称而不是提取。

以下示例程序从第一个命令行参数中获取 ZIP 文件名，并使用 mapM_ putStrLn 来打印它们:

import Codec.Archive.Zip (withArchive, entryNames)
import System.Environment (getArgs)

main = do
    -- ZIP file name: First commandline arg
    zipPath:_ <- getArgs
    names <- withArchive zipPath $ entryNames
    mapM_ putStrLn names