有没有一种简单的方法可以使用 Miller 将具有 0 索引路径作为键的 CSV 转换为 JSON？

Question

考虑以下 CSV：

email/1,email/2
abc@xyz.org,bob@pass.com

您可以使用Miller轻松地将其转换为 JSON（考虑到键定义的路径）：

mlr --icsv --ojson --jflatsep '/' cat file.csv

[ { "email": ["abc@xyz.org", "bob@pass.com"] } ]

现在，如果路径在 CSV 中是 0 索引的（这肯定更常见）：

email/0,email/1
abc@xyz.org,bob@pass.com

然后，在事先不了解字段名称的情况下，您似乎必须重写整个转换：

_{编辑：将硬编码/替换为FLATSEP内置变量：}

mlr --icsv --flatsep '/' put -q '
    begin { @labels = []; print "[" }

    # translate the original CSV header from 0-indexed to 1-indexed
    NR == 1 {
        i = 1;
        for (k in $*) {
            @labels[i] = joinv( apply( splita(k,FLATSEP), func(e) {
                return typeof(e) == "int" ? e+1 : e
            }), FLATSEP );
            i += 1;
        }
    }

    NR > 1 { print @object, "," }

    # create an object from the translated labels and the row values
    o = {};
    i = 1;
    for (k,v in $*) {
        o[@labels[i]] = v;
        i += 1;
    }
    @object = arrayify( unflatten(o,FLATSEP) );

    end { if (NR > 0) { print @object } print "]" }
' file.csv

我想知道我是否遗漏了一些明显的东西，例如命令行选项或使用put动词重命名字段的方法，或者其他东西？ 也欢迎您对以前的代码提出您的见解，因为我对我的 Miller 的编程技能不太有信心。

---

更新：

使用@aborruso 预处理 CSV header 的方法，这可以简化为：
^{注意：我没有保留正则regextract部分，因为这意味着提前知道 CSV header。}

mlr --csv -N --flatsep '/' put '
    NR == 1 {
        for (i,k in $*) {
            $[i] = joinv( apply( splita(k,FLATSEP), func(e) {
                return typeof(e) == "int" ? e+1 : e
            }), FLATSEP );
        }
    }
' file.csv |
mlr --icsv --flatsep '/' --ojson cat

即使有使用rename动词（当你提前知道 header 时）或预处理 CSV header 等变通方法，我仍然希望 Miller 的作者可以添加一个额外的命令行选项来处理这种0‑索引外部数据； 添加像arrayify0 （和flatten0 ）这样的DSL function 在某些情况下也很有用。

Answer 1

我想知道我是否遗漏了一些明显的东西，比如命令行选项或用 put 动词重命名字段的方法，或者其他东西？

从此开始

email/0,email/1
abc@xyz.org,bob@pass.com

您可以使用隐式 CSV header 并运行

mlr --csv -N put 'if (NR == 1) {for (k in $*) {$[k] = "email/".string(int(regextract($[k],"[0-9]+"))+1)}}' input.csv

具有

email/1,email/2
abc@xyz.org,bob@pass.com