sed/awk/perl 格式化多个段落答案

【问题标题】：sed/awk/perl formatting multiple paragraphssed/awk/perl 格式化多个段落
【发布时间】：2017-05-01 11:49:49
【问题描述】：

dzinfo 给我这样的输出格式；

User: x0000001
Forced into restricted environment: No

  Role Name        Avail Restricted Env 
  ---------------  ----- -------------- 
  login/Corp_All   Yes   None           
  _Example-Role--  Yes   _Example-Role-- 
  ALL_Servers-Win        ALL_Servers-Win 
  /US_All                /US_All  
  Domain_GLOBAL-Ro Yes   Domain_GLOBAL-Ro 
  le-CORE_Group-AL       le-CORE_Group-AL 
  L-MacOS/Domain_        L-MacOS/Domain_
  GLOBAL                 GLOBAL      

    Effective rights:
    Password login
    Non password login
    Allow normal shell


PAM Application  Avail Source Roles         
---------------  ----- -------------------- 
*                Yes   login/US_All         
Privileged commands:
  Name             Avail Command               Source Roles         
  ---------------  ----- --------------------  -------------------- 
  CORP_GLOBAL-Com  Yes   /usr/bin/getfacl      CORP_GLOBAL-Role-COR 
  mand-CORE_SVR_I                              E_SVR_INFRA_ALL-LNX/ 
  NFRA_ALL-V042-S                              CORP_GLOBAL          
  00042/CORP_GLOB                                                   
  AL                                                                
  CORP_GLOBAL-Com  Yes   /usr/bin/dzdo -l      CORP_GLOBAL-Role-COR 
  mand-CORE_SVR_I                              E_SVR_INFRA_ALL-LNX/ 
  NFRA_ALL-V042-S                              CORP_GLOBAL          
  00048/CORP_GLOB                                                   
  AL                                                                
  CORP_GLOBAL-Com  Yes   /bin/cp temp_auth     CORP_GLOBAL-Role-COR 
  mand-CORE_SVR_I        /home/sudocfg/author  E_SVR_INFRA_ALL-LNX/ 
  NFRA_ALL-V042-S        ized_keys             CORP_GLOBAL          
  00085/CORP_GLOB                                                   
  AL

什么工具是这样格式化报告的最佳选择？我怎样才能匹配/组合列/行并将其格式化为以下内容？

User: x0000001
Forced into restricted environment: No

  Role Name                                             Avail   Restricted Env 
  ---------------                                       -----   -------------- 
  login/Corp_All                                        Yes     None           
  _Example-Role--ALL_Servers-Win/US_All                 Yes     _Example-Role--ALL_Servers-Win/US_All 
  Domain_GLOBAL-Role-CORE_Group-ALL-MacOS/Domain_GLOBAL Yes     Domain_GLOBAL-Role-CORE_Group-ALL-MacOS/Domain_GLOBAL 

    Effective rights:
    Password login
    Non password login
    Allow normal shell

  PAM Application  Avail Source Roles         
  ---------------  ----- -------------------- 
  *                Yes   login/US_All         

Privileged commands:
  Name                                                              Avail   Command                                             Source Roles        
  ---------------                                                   -----   --------------------                                -------------------- 
  CORP_GLOBAL-Command-CORE_SVR_INFRA_ALL-V042-S00042/CORP_GLOBAL    Yes     /usr/bin/getfacl                                    CORP_GLOBAL-Role-CORE_SVR_INFRA_ALL-LNX/CORP_GLOBAL
  CORP_GLOBAL-Command-CORE_SVR_INFRA_ALL-V042-S00048/CORP_GLOBAL    Yes     /usr/bin/dzdo -l                                    CORP_GLOBAL-Role-CORE_SVR_INFRA_ALL-LNX/CORP_GLOBAL 
  CORP_GLOBAL-Command-CORE_SVR_INFRA_ALL-V042-S00085/CORP_GLOBAL    Yes     /bin/cp temp_auth /home/sudocfg/authorized_keys     CORP_GLOBAL-Role-CORE_SVR_INFRA_ALL-LNX/CORP_GLOBAL

每一列的文字可以变化很大，所以我希望自动调整宽度。

我可以处理单行，但对于这样的报告？我什至不知道从哪里开始。

【问题讨论】：

您可能想通过一个较小的示例寻求帮助，然后您可以开发和增强自己以应用于更大的问题。没有多少人愿意通读所有这些文本，试图找出要寻找的模式以及如何处理它们。
即使有人可能会考虑回答这个问题，这表明没有努力解决它，这对他们来说太大了，无法阅读。 :(
欢迎来到本站！请参阅how to ask 了解更多关于读者可能在问题中寻找的内容。就个人而言，我会使用awk，因为我很熟悉它。看起来您想从以Avail=Yes 开头的行块中展开列。您可以找到Avail 和Yes，开始累积，每当您到达下一个Yes 时打印，然后当您看到空行或文件结尾时打印最后一个块（awk 中的END {}）。

标签： linux bash perl awk sed

【解决方案1】：

为了让您开始，以下基本上是您开始使用 GNU awk for FIELDWIDTHS 隔离每行上的各个字段的方法：

$ cat tst.awk
BEGIN { origFS=FS }
/---/ {
    origFS=FS
    split($0,f,/\s+|-+/,s)
    FIELDWIDTHS=""
    for (i=1; i in s; i++) {
        FIELDWIDTHS = (i>1 ? FIELDWIDTHS " " : "") length(s[i])
    }
}
/^\s*$/ {
    FIELDWIDTHS=""
    FS=origFS
}
{
    for (i=1; i<=NF; i++) {
        printf "<%s>", $i, (i<NF?OFS:ORS)
    }
    print ""
}

$ awk -f tst.awk file
<User:><x0000001>
<Forced><into><restricted><environment:><No>

<Role><Name><Avail><Restricted><Env>
<---------------><-----><-------------->
<  ><login/Corp_All ><  ><Yes  >< ><None          >< >
<  ><_Example-Role--><  ><Yes  >< ><_Example-Role-><->
<  ><ALL_Servers-Win><  ><     >< ><ALL_Servers-Wi><n>
<  ></US_All        ><  ><     >< ></US_All  ><>
<  ><Domain_GLOBAL-R><o ><Yes  >< ><Domain_GLOBAL-><R>
<  ><le-CORE_Group-A><L ><     >< ><le-CORE_Group-><A>
<  ><L-MacOS/Domain_><  ><     >< ><L-MacOS/Domain><_>
<  ><GLOBAL         ><  ><     >< ><GLOBAL      ><>

<Effective><rights:>
<Password><login>
<Non><password><login>
<Allow><normal><shell>


<PAM><Application><Avail><Source><Roles>
<---------------><-----><-------------------->
<*              ><  ><Yes  >< ><login/US_All        >< >
<Privileged comm><an><ds:><><><>
<  Name         ><  ><  Ava><i><l Command           >< >
<  -------------><--><  ---><-><- ------------------><->
<  ><CORP_GLOBAL-Com><  ><Yes  >< ></usr/bin/getfacl    ><  ><CORP_GLOBAL-Role-COR>< >
<  ><mand-CORE_SVR_I><  ><     >< ><                    ><  ><E_SVR_INFRA_ALL-LNX/>< >
<  ><NFRA_ALL-V042-S><  ><     >< ><                    ><  ><CORP_GLOBAL         >< >
<  ><00042/CORP_GLOB><  ><     >< ><                    ><  ><                    >< >
<  ><AL             ><  ><     >< ><                    ><  ><                    >< >
<  ><CORP_GLOBAL-Com><  ><Yes  >< ></usr/bin/dzdo -l    ><  ><CORP_GLOBAL-Role-COR>< >
<  ><mand-CORE_SVR_I><  ><     >< ><                    ><  ><E_SVR_INFRA_ALL-LNX/>< >
<  ><NFRA_ALL-V042-S><  ><     >< ><                    ><  ><CORP_GLOBAL         >< >
<  ><00048/CORP_GLOB><  ><     >< ><                    ><  ><                    >< >
<  ><AL             ><  ><     >< ><                    ><  ><                    >< >
<  ><CORP_GLOBAL-Com><  ><Yes  >< ></bin/cp temp_auth   ><  ><CORP_GLOBAL-Role-COR>< >
<  ><mand-CORE_SVR_I><  ><     >< ></home/sudocfg/author><  ><E_SVR_INFRA_ALL-LNX/>< >
<  ><NFRA_ALL-V042-S><  ><     >< ><ized_keys           ><  ><CORP_GLOBAL         >< >
<  ><00085/CORP_GLOB><  ><     >< ><                    ><  ><                    >< >
<  ><AL             ><  ><     >< ><               ><><><>

您会想购买 Arnold Robbins 的《Effective Awk Programming, 4th Edition》一书，并在开始修改它以了解其工作原理并在此基础上进行构建时将其作为参考。

【讨论】：

为什么要投反对票？问题是关于使用 awk 的解释，该套件完全满足这种需求

【解决方案2】：

我可以处理单行，但对于这样的报告？我什至不知道从哪里开始。

确实，这对于单行似乎几乎不可能（除非它是一条很长的行）。但首先，可以分析问题并列出可能的解决方案。

识别输入的哪些部分构成表格（列行将在哪里组合）：我们可以使用列标题和文本之间的连字符行来识别表格的开头，以及短行或不合适的行，列之间的间隙不为空白，以标识结尾。
逐行读取表格，将每行拆分为列（其边距可以从连字符行得出），并且，如果当前行是前一行的换行续行（即如果它有空列），连接每列的文本。在此过程中，可以根据最大组合文本长度确定所需的列宽。
使用之前确定的列宽写出表格。

下面的 Perl 程序实现了一个解决方案。但是请注意，由于它使用seek，它不能在管道输入上工作，而只能在文件上工作。

#!/usr/bin/perl -wn
if (/---/)  # here comes a table
{
    seek ARGV, $priprior, 0;    # set position back to header line
    push @gap, $-[1] while /(?<=-) *( )-/g; # find the column gaps
    $tabrow = -1;               # index of current table row: no rows yet
    @maxlng = (0)x($#gap+2);    # maximum length of text in each column
    while (<>)                  # read the table, starting with headers
    {   # check for end of table:
        last if length() <= $gap[-1] or substr($_, $gap[-1], 1) ne ' ';
        $offset = 0;    # first column start
        $contin = 0;    # is it a continuation line?
        foreach $i (0..$#gap+1)
        {   # extract column:
            if ($i <= $#gap)    # not last column?
            {   $column[$i] = substr $_, $offset, $gap[$i]-$offset;
                $offset = $gap[$i];
            }
            else                # last column
            {   $column[$i] = substr $_, $offset;
            }
            $column[$i] =~ s/\s+$//;        # remove trailing whitespace
            $contin += $column[$i] eq ''    # column empty?
        }
        ++$tabrow unless $contin;
        foreach $i (0..$#gap+1)
        {   # ugly fix to restore the space in "temp_auth /home/...", where
            # the column is wrapped early: --------------------
                                         # ...
                                         # /bin/cp temp_auth   
                                         # /home/sudocfg/author
                                         # ized_keys           
            $table[$tabrow][$i] .= ' ' if $contin and length($table[1][$i])>
                                                length($table[$tabrow][$i]);
            # now that's fixed, proceed with normal unwrapping of the column
            $column[$i] =~ s/^ +// if $contin or $i;    # remove leading spaces
            $table[$tabrow][$i] .= $column[$i];
               $maxlng[$i] = length $table[$tabrow][$i] # update maximum length
            if $maxlng[$i] < length $table[$tabrow][$i];
        }
        undef $_; last if eof
    }
    foreach $e (@table)
    {
        foreach $i (0..$#gap+1) { printf "%-*s", $maxlng[$i]+1, $$e[$i]; }
        print "\n";
    }
    undef @gap; undef @table;
}
else { print $previous_line if $previous_line }
$previous_line = $_;
$priprior = $prior;
$prior = tell ARGV;

END { print $previous_line if $previous_line }

【讨论】：