将列表转换为元组

Question

我有几个命令行选项（例如5个），我想将它们转换为元组。 问题是我希望它们以正确的顺序出现，因此可以使用模式匹配从列表轻松构建元组，但是在现实生活中可以按随机顺序提供选项，所以我不知道列表头是否包含详细选项或日志文件名？

我试图思考如何使用延续传递样式来做到这一点，但是我没有想到有用的东西。

那有可能吗？

我认为我可以按预期的顺序对列表进行“排序”，但效果并不理想。

我也可以摆脱元组并创建数据记录-但是，这仍然会导致检查属性的类型并设置记录的正确字段。 仍然很多打字。

Answer 1

根据您的描述，我认为您有两种选择。 在这两种方法中，我要说的是转换为字典是最简单的，但是转换为元组将是可行的，而且只会有点笨拙

因此，采用以下定义：

options :: [OptDescr (String, String)]
options = [Option ['a'] ["alpha"] (ReqArg (\a -> ("alpha", a)) "empty") "",
           Option ['b'] ["beta"] (ReqArg (\a -> ("beta", a)) "empty") "",
           Option ['g'] ["gamma"] (ReqArg (\a -> ("gamma", a)) "empty") ""]

main = do
    args <- getArgs
    let (opts, nonopts, errs) = getOpt Permute options args
    putStrLn $ show opts

由此，我的几个示例输出为：

[("beta","b"),("alpha","a")]
[("alpha","a"),("gamma","g"),("beta","b")]

等等。 与命令行上的顺序相同。 但是，由于我在上面进行设置的方式，我基本上有一个关联列表，所以...如果我特别想要具有值（alpha，beta，gamma）的元组，那么我最好的选择是...

(lookup "alpha" opts, lookup "beta" opts, lookup "gamma" opts)

所得的数据类型将为（可能字符串，可能字符串，可能字符串），顺序为“ alpha”，“ beta”和“ gamma”。