[OT] regular expressions

[V13]

On Saturday 21 June 2008, Harris Kosmidhs wrote:
> Καλημέρα,
>
> λίγο off-topic,
>
> έχω περίπου 20-30 text αρχεία με στίχους της μορφής:
> μπλα μπλα μπλα μπλα
>
> Θα ήθελα με sed, perl η ότι άλλο να μετατραπεί σε κάτι του στυλ:
> μπλα μπλα μπλα μπλα<br>
> </p>

Xoris na to exo dokimasei, kati san ayto prepei na doylevei:

cat a | (
LASTEMPTY=1
while read line ; do
  if [ -z "$line" ] ; then
    if [ "$LASTEMPTY" = "0" ] ; then
      LASTEMPTY=1
      echo "</p>"
      echo
    else
      continue
    fi
  else
    if [ "$LASTEMPTY" = "1" ] ; then
      LASTEMPTY=0
      echo "<p>"
    fi
    echo "$line<br>"
  fi
done
)

Ginetai kai me AWK alla mallon tha xreiastei perissoteres grammes

<<V13>>