清单zip档案使用zip-导管

Question

使用zip-conduit库，我希望在ZIP存档中列出条目。我只想打印每一行文件名-类似于unzip -l，但没有任何额外的信息。

注：这个问题是用问答式回答的，因此故意不显示出任何研究成果！

Answer 1

您可以使用entryNames函数。通过修改ZIP提取实例，我们可以打印名称而不是提取名称。

下面的示例程序从第一个命令行参数获取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