regex - 在列表中添加零

Question

我有以下输入文件:

a,10,12,13
b,20,22
c,30
d,33

并希望在每行有三个数字之前附加零，所以这应该是输出:

a,10,12,13
b,20,22,0
c,30,0,0
d,33,0,0

在 sed我可以使用这两个命令:

sed 's/\([a-z],[0-9]\+$\)/\1,0,0/g'
sed 's/\([a-z],[0-9]\+,[0-9]\+$\)/\1,0/g'

我的正则表达式知识仅限于 sed我想知道如何使用 awk 来实现这一点或 perl .

Answer 1

作为 Perl 单行

perl -pe 's/$/,0/ until tr/,// >= 3' myfile

输出

a,10,12,13
b,20,22,0
c,30,0,0
d,33,0,0