AWK: Generar Lista en HTML

<code>
BEGIN { <br/>
# Transforma texto de entrada en lista HTML<br/>
# Los items en el texto fuente se identifican por uno de “-” o “+” y estan separados por líneas vacias.<br/>
# LType (List Type) definida por el usuario: “u” unordered, “o” ordered (“u” por defecto). Ejemplo: <br/>
# awk -v LType=”u” -f dolist.awk archivo_de_origen.txt<br/>
&nbsp;&nbsp;RS=”"<br/>
&nbsp;&nbsp;if (!LType) LType=”u” # Valor por defecto de LType<br/>
&nbsp;&nbsp;BeginItem=”<li>” ; EndItem = “</li>” # Etiquetas de los items de salida<br/>
&nbsp;&nbsp;# lista no ordenada<br/>
&nbsp;&nbsp;if (LType == “u”) {ItemMark = “^\-[ \t]*” ; BeginList=”<ul>” ; EndList=”</ul>”} <br/>
&nbsp;&nbsp;# lista ordenada<br/>
&nbsp;&nbsp;&nbsp;&nbsp;else if (LType == “o”) {ItemMark = “^\+[ \t]*” ; BeginList=”<ol>” ; EndList=”</ol>”} <br/>
&nbsp;&nbsp;print(BeginList) <br/>
}<br/>
<br/>
{ if ($0 ~ ItemMark) {sub(ItemMark,”") ; print(BeginItem $0 EndItem)} }<br/>
<br/>
END { print(EndList) }<br/>
</code>

at char

someone@somewhere.com

someone

at char

someone@somewhere.com

someone

at char

someone@somewhere.com

someone

at char

someone@somewhere.com

someone@somewhere.com

at char

1 someone@somewhere.com
2 someone\@somewhere.com
3 someone@somewhere.com
4 someone¡somewhere.com

at

someone fibertel.com.ar

 

‘at’ character

someone

¡

‘at’ character

someone&\#64;fibertel.com.ar

Post by email: ‘at’ character

someone

Seguir

Get every new post delivered to your Inbox.