diff tsv2html_simple.pl @ 0:ac5f9272033b draft

first upload
author saskia-hiltemann
date Tue, 01 Jul 2014 11:42:23 -0400
parents
children 42076db43d42
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tsv2html_simple.pl	Tue Jul 01 11:42:23 2014 -0400
@@ -0,0 +1,53 @@
+print <<END;
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
+   "http://www.w3.org/TR/html4/strict.dtd">
+<html>
+<head>
+<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.3.2/jquery.min.js"></script>
+<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jqueryui/1.7.2/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": 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($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";
+