purl's posterous

« Back to posts
  • Viewed
    times
August 21, 2011

HTML::Table in one-liner

  • Edit
  • Delete
  • Tags
  • Autopost
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>)'
Tweet
  • 0 responses
  • Like
  • Comment