☰

グループファイル項目を操作したい。 [閉じる]

tag-icon • tag-icon text-processing
グループファイル項目を操作したい。 [閉じる]

ファイルがあるとしましょう。

uid=1(a) groups=cat,dog,hen
uid=2(b) groups=cat,hen
uid=3(c) groups=hen
uid=4(d) groups=dog,hen,buffalo,horse

私が探しています：

cat a,b
dog a,d
hen a,b,c,d
buffalo d
horse d

リスト＃1：ユーザーとセカンダリグループ（ユーザー別）

リスト＃2：グループとユーザー（グループに属する）

答え1

awk -F "[= ,()]" '{
    for(i=6;i<=NF;i++){
        if(a[$i] != ""){
            a[$i]=a[$i]","$3
        }else{
            a[$i]=$3
        }
    }
}
END{
    for ( i in a){
        print i,a[i]
    }
}'

各グループメンバーで索引付けされた配列を作成し、uidグループメンバーが行に見つかったら配列に追加します。最初はEND配列インデックスと配列の値です。

答え2

#!/usr/bin/env perl
use strict;
use warnings;
use feature qw(say);

my %groups;

while ( my $line = readline *STDIN ) {
  chomp $line;
  if ( $line =~ m/\((?<user>[^)]+)\) groups=(?<groups>.+)/ ) {
    for my $groupname ( split ',', $+{groups} ) {
      push @{ $groups{$groupname} }, $+{user};
    }
  } else {
    warn "NOTICE non-matching line $. - '$line'\n";
  }
}

for my $groupname ( sort keys %groups ) {
  say $groupname, ' ', join ',', @{ $groups{$groupname} };
}

このバージョンは配列参照（ユーザー）のハッシュ（グループ）を使用し、入力行と一致しない場合に警告します（データが破損していますか？どうすればわかりますか？）。

答え3

そしてperl：

perl -lne '
  if (/^uid=\d+\((.+)\) groups=(.*)/) {
    push @{$u{$_}}, $1 for split /,/, $2;
  }
  END {
    $" = ",";
    print "$_ @{$u{$_}}" for keys %u;
  }'

関連情報