使用
zip-conduit
库,我想列出ZIP档案中的条目。我只想每行打印它们的文件名 - 类似于unzip -l
,但不包含任何其他信息。
注意:此问题是使用问答样式回答的,因此故意不显示任何研究工作!zip-conduit
库,我想列出ZIP档案中的条目。我只想每行打印它们的文件名 - 类似于unzip -l
,但不包含任何其他信息。
注意:此问题是使用问答样式回答的,因此故意不显示任何研究工作!entryNames
函数。通过修改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