Mercurial > repos > saskia-hiltemann > ireport

print <<END;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
   "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<script src=\"jquery-1.10.2.js\"></script>
<script src=\"jquery-ui.js\"></script>
<script type="text/javascript" src="jquery.dataTables.js"></script>
<script type="text/javascript" src="iframe-resizer/js/iframeResizer.contentWindow.min.js"></script>
<script>

    <!-- data tables -->
		\$(document).ready(function() {
    		\$('#datatable').dataTable( {
    			"bPaginate": false,
        		"bLengthChange": false,
        		"bFilter": false,
        		"bSort": false,
        		"bInfo": false,
        		"bAutoWidth": false
    		} );
		} );
	<!-- data tables tsv2html_simple.pl -->
</script>

<link rel="stylesheet" type="text/css" href="jquery.dataTables.css">
</head>
<body>
<table class="display dataTable" id="datatable" border="1" cellspacing="0" cellpadding="0" style="font-size: 12px;" >
<thead>
<tr><th>
END
chomp ($_ = <STDIN>);
s?\t?</th><th>?g;
print "$_</th></tr>\n";
#print "</tr>\n</thead>\n<tbody>\n";
print "</thead>\n<tbody>\n";
while (<>) {
    print "<tr>\n";
    my @fields = split('\t');
    my $first=1;
    for $cell(@fields) {
    if($cell =~ /^(\d|\s)+$/) {
    	1 while ($cell =~ s/^(-?\d+)(\d{3})/$1,$2/);
	    print "<td align=\"right\">$cell</td>";
	    #print "<td>$cell</td>";
	}
	else {
	    print "<td>$cell</td>"; } }
    print "</tr>\n"; }
#print "</tr>\n</tbody>\n</table></body></html>\n";
print "</tbody>\n</table></body></html>\n";
author	saskia-hiltemann
date	Mon, 16 Nov 2015 08:56:22 -0500
parents	ac5f9272033b
children