HTML::Table in one-liner

perl -MHTML::Entities -F\\t -lane 'BEGIN{print q(<table>)} END{print q(</table>)} print qq(<tr>\t), (join q( ), map {qq(<td>@{[encode_entities($_)]}</td>)} @F), qq(\t</tr>)'

Posted via email from purl's posterous