#!/usr/bin/perl -w # # $Revision: 1.7 $ $Date: 2012-07-26 17:11:47-04 $ # $Source: /home/vogelke/bin/RCS/eztable,v $ # $Host: sys7.com $ # $UUID: 5145b72e-e64f-3e6f-92b9-5a34896b72a9 $ # #) || die "no title"; chomp($_ = <>) || die "no columns"; @cols = split(/\t/); # Store the remainder of the file. We could do # line-at-a-time processing, but we might want to simply # pass everything to a template. while (<>) { chomp; push(@rest, $_); } # Print the HTML header, title, and table start. print <<"EndHeader"; $title

$title

EndHeader print " \n"; foreach (@cols) { print " \n"; } print " \n"; # Print the main table entries. foreach (@rest) { print "\n"; foreach (split(/\t/)) { $_ = htmlsafe($_); print " \n"; } print "\n"; } # Print the footer. my $adate = arpadate(time()); my @v = split(/\s+/, version()); print <<"EndFooter";

$_
$_

Created: $adate Generated by: $v[0] $v[1]

EndFooter exit(0); #--------------------------------------------------------------------- # Escape non-HTML-safe characters. sub htmlsafe { my $text = $_[0]; return undef unless defined $text; # do it in this order, or you get lots of &... $text =~ s/\&/&/g; $text =~ s/>/>/g; $text =~ s/