annotate tsv2html_simple.pl @ 2:3c160414da2e default tip

initial upload
author shiltemann
date Thu, 26 Feb 2015 14:05:23 +0100
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
3c160414da2e initial upload
shiltemann
parents:
diff changeset
1 print <<END;
3c160414da2e initial upload
shiltemann
parents:
diff changeset
2 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
3c160414da2e initial upload
shiltemann
parents:
diff changeset
3 "http://www.w3.org/TR/html4/strict.dtd">
3c160414da2e initial upload
shiltemann
parents:
diff changeset
4 <html>
3c160414da2e initial upload
shiltemann
parents:
diff changeset
5 <head>
3c160414da2e initial upload
shiltemann
parents:
diff changeset
6 <script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.3.2/jquery.min.js"></script>
3c160414da2e initial upload
shiltemann
parents:
diff changeset
7 <script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jqueryui/1.7.2/jquery-ui.js"></script>
3c160414da2e initial upload
shiltemann
parents:
diff changeset
8 <script type="text/javascript" src="jquery.dataTables.js"></script>
3c160414da2e initial upload
shiltemann
parents:
diff changeset
9 <script type="text/javascript" src="iframe-resizer/js/iframeResizer.contentWindow.min.js"></script>
3c160414da2e initial upload
shiltemann
parents:
diff changeset
10 <script>
3c160414da2e initial upload
shiltemann
parents:
diff changeset
11
3c160414da2e initial upload
shiltemann
parents:
diff changeset
12 <!-- data tables -->
3c160414da2e initial upload
shiltemann
parents:
diff changeset
13 \$(document).ready(function() {
3c160414da2e initial upload
shiltemann
parents:
diff changeset
14 \$('#datatable').dataTable( {
3c160414da2e initial upload
shiltemann
parents:
diff changeset
15 "bPaginate": false,
3c160414da2e initial upload
shiltemann
parents:
diff changeset
16 "bLengthChange": false,
3c160414da2e initial upload
shiltemann
parents:
diff changeset
17 "bFilter": false,
3c160414da2e initial upload
shiltemann
parents:
diff changeset
18 "bSort": false,
3c160414da2e initial upload
shiltemann
parents:
diff changeset
19 "bInfo": false,
3c160414da2e initial upload
shiltemann
parents:
diff changeset
20 "bAutoWidth": true
3c160414da2e initial upload
shiltemann
parents:
diff changeset
21 } );
3c160414da2e initial upload
shiltemann
parents:
diff changeset
22 } );
3c160414da2e initial upload
shiltemann
parents:
diff changeset
23 <!-- data tables -->
3c160414da2e initial upload
shiltemann
parents:
diff changeset
24 </script>
3c160414da2e initial upload
shiltemann
parents:
diff changeset
25
3c160414da2e initial upload
shiltemann
parents:
diff changeset
26 <link rel="stylesheet" type="text/css" href="jquery.dataTables.css">
3c160414da2e initial upload
shiltemann
parents:
diff changeset
27 </head>
3c160414da2e initial upload
shiltemann
parents:
diff changeset
28 <body>
3c160414da2e initial upload
shiltemann
parents:
diff changeset
29 <table class="display dataTable" id="datatable" border="1" cellspacing="0" cellpadding="0" style="font-size: 12px;" >
3c160414da2e initial upload
shiltemann
parents:
diff changeset
30 <thead>
3c160414da2e initial upload
shiltemann
parents:
diff changeset
31 <tr><th>
3c160414da2e initial upload
shiltemann
parents:
diff changeset
32 END
3c160414da2e initial upload
shiltemann
parents:
diff changeset
33 chomp ($_ = <STDIN>);
3c160414da2e initial upload
shiltemann
parents:
diff changeset
34 s?\t?</th><th>?g;
3c160414da2e initial upload
shiltemann
parents:
diff changeset
35 print "$_</th></tr>\n";
3c160414da2e initial upload
shiltemann
parents:
diff changeset
36 #print "</tr>\n</thead>\n<tbody>\n";
3c160414da2e initial upload
shiltemann
parents:
diff changeset
37 print "</thead>\n<tbody>\n";
3c160414da2e initial upload
shiltemann
parents:
diff changeset
38 while (<>) {
3c160414da2e initial upload
shiltemann
parents:
diff changeset
39 print "<tr>\n";
3c160414da2e initial upload
shiltemann
parents:
diff changeset
40 my @fields = split('\t');
3c160414da2e initial upload
shiltemann
parents:
diff changeset
41 my $first=1;
3c160414da2e initial upload
shiltemann
parents:
diff changeset
42 for $cell(@fields) {
3c160414da2e initial upload
shiltemann
parents:
diff changeset
43 if($cell =~ /^(\d|\s)+$/) {
3c160414da2e initial upload
shiltemann
parents:
diff changeset
44 1 while ($cell =~ s/^(-?\d+)(\d{3})/$1,$2/);
3c160414da2e initial upload
shiltemann
parents:
diff changeset
45 print "<td align=\"right\">$cell</td>";
3c160414da2e initial upload
shiltemann
parents:
diff changeset
46 #print "<td>$cell</td>";
3c160414da2e initial upload
shiltemann
parents:
diff changeset
47 }
3c160414da2e initial upload
shiltemann
parents:
diff changeset
48 else {
3c160414da2e initial upload
shiltemann
parents:
diff changeset
49 print "<td>$cell</td>"; } }
3c160414da2e initial upload
shiltemann
parents:
diff changeset
50 print "</tr>\n"; }
3c160414da2e initial upload
shiltemann
parents:
diff changeset
51 #print "</tr>\n</tbody>\n</table></body></html>\n";
3c160414da2e initial upload
shiltemann
parents:
diff changeset
52 print "</tbody>\n</table></body></html>\n";
3c160414da2e initial upload
shiltemann
parents:
diff changeset
53