awk中的元编程，将文件转换为html表格格式

我有以下文件：

table.txt（逗号分隔）

1,Example Title
COL1,COL2,COL3,COL4,COL5
BRCC,ACGC,15869,105A,1
BCAS,GAAG,73345,369T,2

模板.awk

function parse_print(s){
    s = gensub(/^\s+|\s+$/,"","g",s)
    s = gensub(/[\42]/,"\\\\\042","g",s)
    s = gensub(/\$[0-9]+/,"\" & \"","g",s)
    s = gensub(/\$e/,"\" & \"","g",s)
    return s;
}

/^[^%]/{print "print \"" parse_print($0) "\""; next}
/^%BEGIN$|^%END$/{print substr($1,2) "{"; next}
/^%END.+$/{print "}"; next}
{print substr($1,2) "{"}
{
    if($2 == "%FOREACH"){
        pprint = gensub(/(\S+\s+){2}(.*)/,"\\2","g")
        print "for(e=1; e<=NF; ++e) print \"" parse_print(pprint) "\""
    }else{
        pprint = gensub(/\S+\s+(.*)/,"\\1","g")
        print "print \"" parse_print(pprint) "\""
    }
}
{print "}"}

表.tawk

%BEGIN
                    <style>
                        .my_table {border-bottom:3px double black; border-collapse: collapse; }
                        .my_table tr.header{border-bottom:3px double black;}
                        .my_table td{text-align: center;}
                    </style>
                    <table class="my_table">
%ENDBEGIN
%NR==1              <caption>Table $1. $2</caption>
%NR==2              <tr class="header">
%NR>2               <tr>
%NR==2  %FOREACH    <th>$e</th>
%NR>2   %FOREACH    <td>$e</td>
%NR!=1              </tr>
%END
                    </table>
%ENDEND

元编程.sh

#!/bin/sh
# metaprogram
awk '@include "template"' $1 > .table.awk
awk -vFS="," -f .table.awk $2
rm .table.awk

这个想法是使用元编程来分离演示的逻辑，这基于 @kent 的评论如何使用awk的问题格式化html中的文本用于将文本文件转换为 html 表格格式。

./metaprogramming.sh table.tawk table.txt > table.html

这得到，

<style>
.my_table {border-bottom:3px double black; border-collapse: collapse; }
.my_table tr.header{border-bottom:3px double black;}
.my_table td{text-align: center;}
</style>
<table class="my_table">
<caption>Table 1. Example Title</caption>
<tr class="header">
<th>COL1</th>
<th>COL2</th>
<th>COL3</th>
<th>COL4</th>
<th>COL5</th>
</tr>
<tr>
<td>BRCC</td>
<td>ACGC</td>
<td>15869</td>
<td>105A</td>
<td>1</td>
</tr>
<tr>
<td>BCAS</td>
<td>GAAG</td>
<td>73345</td>
<td>369T</td>
<td>2</td>
</tr>
</table>

问题1

有没有办法在不创建临时文件的情况下进行调用.table.awk，甚至，无需使用bash脚本 （awk直接打电话）？

问题奖金

有没有办法做得更好？那里有图书馆吗awk已经这样做了？

TXR 是一个工具，它提供了一种用于基于模板的数据提取和格式化的语言，并结合了原始的 Lisp 方言：

In format.txr我们有：

@num,@title
@(coll)@{heading /[^,]+/}@(end)
@(collect)
@  (coll)@{data /[^,]+/}@(end)
@(end)
@(output :filter :tohtml)
<style>
.my_table {border-bottom:3px double black; border-collapse: collapse; }
.my_table tr.header{border-bottom:3px double black;}
.my_table td{text-align: center;}
</style>
<table class="my_table">
<caption>Table @num. @title</caption>
<tr class="header">
@  (repeat)
<th>@heading</th>
@  (end)
</tr>
@  (repeat)
<tr>
@    (repeat)
<td>@data</td>
@    (end)
</tr>
@  (end)
</table>
@(end)

我们将其应用到data像这样的文件：

$ txr format.txr data 
<style>
.my_table {border-bottom:3px double black; border-collapse: collapse; }
.my_table tr.header{border-bottom:3px double black;}
.my_table td{text-align: center;}
</style>
<table class="my_table">
<caption>Table 1. Example Title</caption>
<tr class="header">
<th>COL1</th>
<th>COL2</th>
<th>COL3</th>
<th>COL4</th>
<th>COL5</th>
</tr>
<tr>
<td>BRCC</td>
<td>ACGC</td>
<td>15869</td>
<td>105A</td>
<td>1</td>
</tr>
<tr>
<td>BCAS</td>
<td>GAAG</td>
<td>73345</td>
<td>369T</td>
<td>2</td>
</tr>
</table>

请注意，:filter :tohtml处理 HTML 的转义字符；如果数据包含&例如，我们得到&等等。

垂直的collect和水平的coll指令隐式地将匹配的模式变量支持到嵌套列表中；repeat隐式解开列表，这样就只有简单的变量引用，例如@data出现在输入匹配部分和输出中。

这是 Vim 下语法高亮的样子，非常清楚什么是模板材料，什么是 TXR 语法：