每行输出一个组，带有组名和组 ID

Question

这里是关于我所属组的信息，来自id 命令。 我已经做到了，所以输出会更容易阅读。我将这个输出“完全”包括在内，因为它是从命令行返回的。 （感谢@EdMorton。）

$id
uid=1(me) gid=545(Users) groups=545(Users),66049(CONSOLE LOGON),11(Authenticated Users),4095(CurrentSession),66048(LOCAL)

这是我想要的输出，以逗号分隔，每行有一个组名及其 GID：

$ some-great-command
'Users',545
'CONSOLE LOGON',66049
'Authenticated Users',11
'CurrentSession',4095
'LOCAL',66048

我想出了一个可怕的方法来做到这一点：

$ id | sed 's/\(.*groups=\)\(.*$\)/\2/' | awk -F "," '{ for(i = 1; i <= NF; i++) print $i;}' | sed 's/\(^[[:digit:]]\+\)[(]\([A-Za-z +_]\+\)[)]$/'"'"'\2'"'"',\1/'

（我会用更好的屏幕格式再次放在这里，使用\）

$ id | sed 's/\(.*groups=\)\(.*$\)/\2/' | \
awk -F "," '{ for(i = 1; i <= NF; i++) print $i;}' | \
sed 's/\(^[[:digit:]]\+\)[(]\([A-Za-z +_]\+\)[)]$/'"'"'\2'"'"',\1/'

但我不禁认为必须有更好的（或者至少更短更优雅）的方式来完成这个过程。任何人都可以分享这样的解决方案吗？

注意：我这样做的一个原因是，有时，getent group GID 在我工作的地方有点挑剔。我看过其他一些帖子，例如this one，但它没有我想要的答案。

id 输出的更好阅读版本与控制台提供的不同！在(Users)（注意右括号后的空格）和(LOCAL),（逗号后没有空格）之后有换行符。

$ id
uid=1(me) gid=545(Users) 
groups=545(Users),66049(CONSOLE LOGON),
11(Authenticated Users),4095(CurrentSession),66048(LOCAL)

真实id输出：

$ id
uid=1(me) gid=545(Users) groups=545(Users),66049(CONSOLE LOGON),11(Authenticated Users),4095(CurrentSession),66048(LOCAL)

Answer 1

关注awk 可能对您有所帮助。

awk -v s1="'" -F"[)(=,]"  '/uid/{print s1 $(NF-1) s1 OFS $(NF-2);next} /groups/{print s1 $6 s1 OFS s1 $5 s1 ORS s1 $(NF-2) s1 OFS $(NF-3);next} /CurrentSession/{print s1 $2 s1 OFS $1 ORS s1 $(NF-1) s1  OFS $(NF-2)}' OFS=,  Input_file

或

id | awk -v s1="'" -F"[)(=,]"  '/uid/{print s1 $(NF-1) s1 OFS $(NF-2);next} /groups/{print s1 $6 s1 OFS s1 $5 s1 ORS s1 $(NF-2) s1 OFS $(NF-3);next} /CurrentSession/{print s1 $2 s1 OFS $1 ORS s1 $(NF-1) s1  OFS $(NF-2)}' OFS=, 

现在也添加非单线形式的解决方案。

awk -v s1="'" -F"[)(=,]"  '
/uid/                    {  print s1 $(NF-1) s1 OFS $(NF-2);                          next}
/groups/                 {  print s1 $6 s1 OFS s1 $5 s1 ORS s1 $(NF-2) s1 OFS $(NF-3);next}
/CurrentSession/         {  print s1 $2 s1 OFS $1 ORS s1 $(NF-1) s1  OFS $(NF-2);         }
' OFS=,   Input_file

或

id | awk -v s1="'" -F"[)(=,]"  '
/uid/                    {  print s1 $(NF-1) s1 OFS $(NF-2);                          next}
/groups/                 {  print s1 $6 s1 OFS s1 $5 s1 ORS s1 $(NF-2) s1 OFS $(NF-3);next}
/CurrentSession/         {  print s1 $2 s1 OFS $1 ORS s1 $(NF-1) s1  OFS $(NF-2);         }
' OFS=, 

Answer 2

还有perl：

$ id | perl -pe "s/.*=/,/;s/,(\d+)\(([^)]+)\)/'\2',\1\n/g"                                                                 
'arobert',1000
'adm',4
'cdrom',24
'sudo',27
'dip',30
'plugdev',46
'lpadmin',113
'sambashare',128

说明：

将执行两个查找和替换命令：

• s/.*groups=/,/ 用于删除组定义之前的所有内容
• s/,(\d+)\(([^)]+)\)/'\2',\1\n/g 将采取以下措施详细说明@demo

很难写出比这更短的东西。 此外，如果您已经精通sed 和regex，那么perl 可能是添加到您的技能列表中的一个不错的加分项。

正如Ed Morton 所述，当前的perl 命令在输出末尾生成一个额外的EOL。如果要删除它，可以使用以下增强的perl 命令：

$ id | perl -pe "s/.*=/,/;s/,(\d+)\(([^)]+)\)/'\2',\1\n/g;s/\n\n/\n/"

谢谢Ed!!!

Answer 3

$ id |
  awk 'BEGIN{ RS=OFS=",";q="\047" }
  {
      n=split($0,a,"=")
      split(a[n],a,"[()]")
      print q a[2] q,a[1]
  }'
'Users',545
'CONSOLE LOGON',66049
'Authenticated Users',11
'CurrentSession',4095
'LOCAL',66048

与 gawk 和 mawk 配合得很好，但是 bwk 输出了一个额外的 打破了最后一行：

'',

Answer 4

awk -v RS=, -F'[()=]' '{print "\047"$(NF-1)"\047,"$(NF-2)}'

例如给定这个输入数据：

$ cat file
uid=1(me) gid=545(Users) groups=545(Users),66049(CONSOLE LOGON),11(Authenticated Users),4095(CurrentSession),66048(LOCAL)

并使用cat file 代替id：

$ cat file | awk -v RS=, -F'[()=]' '{print "\047"$(NF-1)"\047,"$(NF-2)}'
'Users',545
'CONSOLE LOGON',66049
'Authenticated Users',11
'CurrentSession',4095
'LOCAL',66048

Answer 5

使用 sed 和 awk ：

$ id | sed 's/,/\n/g' | awk -F '[()=]' '{print $(NF-1)","$(NF-2)}'