Mercurial > repos > saskia-hiltemann > ireport
diff tsv2html.pl @ 0:ac5f9272033b draft
first upload
author | saskia-hiltemann |
---|---|
date | Tue, 01 Jul 2014 11:42:23 -0400 |
parents | |
children | 440f4aa3db97 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tsv2html.pl Tue Jul 01 11:42:23 2014 -0400 @@ -0,0 +1,53 @@ +print <<END; +<!DOCTYPE HTML> +<html> +<head> +<script src=\"//code.jquery.com/jquery-1.10.2.js\"></script> + <script src=\"//code.jquery.com/ui/1.10.4/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": true, + "bLengthChange": true, + "bFilter": true, + "bSort": true, + "bInfo": true, + "bAutoWidth": true + } ); + } ); + <!-- data tables --> +</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($first == 1){ + print "<td> $cell </td>"; + $first=0; + } + elsif($cell =~ /^(\d|\s)+$/) { + print "<td align=\"right\">$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"; +