Форматирование выходных данных скрипта оболочки

Question

У меня есть файл в следующем формате -

root            0       system          0  
                        bin             2
                        sys             3
                        security        7
                        cron            8
                        audit           10
                        lp              11
daemon          1       staff           1  
bin             2       bin             2  
                        sys             3
                        adm             4
sys             3       sys             3  

И хочу преобразовать его в новый файл с форматом, используя скрипт оболочки -

root            system,bin,sys,security,cron,audit,lp
daemon          staff
bin             bin,sys,adm
sys             sys

Answer 1

Готовое awkрешение:

awk 'NF==4 && NR>1 {printf "\n" ; } 
     NF==4 { printf "%-10s %s",$1,$3} 
     NF==2 { printf ",%s",$1} 
     END   { printf "\n" ; } '

где

• NFНомер поля (номер столбца),
• NRНомер записи (номер строки),
• различные условия выбирают, что печатать,
• printfне печатает завершающую новую строку.

Answer 2

perl -lane '
   if ( @F == 4 ) {                 # num fields are 4
      print $result if $. > 1;      # in case we"re not @ BOF, show result
      $result = join "\t", @F[0,2]; # initialize result
   } else {
      $result .= ",$F[0]";          # append result
   }
   eof && print $result;            # on the last line, show result
' filename

Answer 3

perl -0pe 's/\h+\d+\h*\n\h+/,/g;  s/\h+\d+//g' ex

• первая замена заменяет числа, за которыми \n...spaces следует,
• вторая замена удаляет остальные числа.