tabdata/td2html

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 td2html - Transform tabular data stream into a HTML table.
   8
   9 =head1 SYNOPSIS
  10
  11 td2html
  12
  13 =head1 DESCRIPTION
  14
  15 Takes a tabular data stream on STDIN and outputs a HTML table
  16 enclosed in C<< <table>...</table> >> tags.
  17
  18 =cut
  19
  20 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  21 do '/usr/lib/tool/perl5/tabdata/common.pl' or die "$@";
  22
  23 sub html_escape
  24 {
  25         my $str = shift;
  26         $str =~ s/[><&\t]/'&' . {'>'=>'gt', '<'=>'lt', '&'=>'amp', "\t"=>'Tab'}->{$&} . ';'/eg;
  27         $str =~ s/\n/<br>/g;
  28         return $str;
  29 }
  30
  31 print "<table border=\"1\">\n";
  32
  33 print "<tr>";
  34 print "<th>";
  35 $header = <STDIN>;
  36 chomp $header;
  37 print join("</th><th>", map {html_escape(unescape_tabdata($_))} split $FS, $header);
  38 print "</th>";
  39 print "</tr>\n";
  40
  41 while($row = <STDIN>)
  42 {
  43         chomp $row;
  44         print "<tr>";
  45         print "<td>";
  46         print join("</td><td>", map {html_escape(unescape_tabdata($_))} split $FS, $row);
  47         print "</td>";
  48         print "</tr>\n";
  49 }
  50
  51 print "</table>";