view tsv2html_simple.pl @ 8:86219e4aa239 draft

Uploaded
author saskia-hiltemann
date Mon, 28 Aug 2017 10:23:21 -0400
parents 42076db43d42
children
line wrap: on
line source

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";