|
2
|
1 print <<END;
|
|
|
2 <!DOCTYPE HTML>
|
|
|
3 <html>
|
|
|
4 <head>
|
|
|
5 <script src=\"jquery-1.10.2.js\"></script>
|
|
|
6 <script src=\"jquery-ui.js\"></script>
|
|
|
7 <script type="text/javascript" src="jquery.dataTables.js"></script>
|
|
|
8 <script type="text/javascript" src="iframe-resizer/js/iframeResizer.contentWindow.min.js"></script>
|
|
|
9 <script>
|
|
|
10
|
|
|
11 <!-- data tables -->
|
|
|
12 \$(document).ready(function() {
|
|
|
13 \$('#datatable').dataTable( {
|
|
|
14 "bPaginate": true,
|
|
|
15 "bLengthChange": true,
|
|
|
16 "bFilter": true,
|
|
|
17 "bSort": true,
|
|
|
18 "bInfo": true,
|
|
|
19 "bAutoWidth": true,
|
|
|
20 "iDisplayLength": 50
|
|
|
21 } );
|
|
|
22 } );
|
|
|
23 <!-- data tables -->
|
|
|
24 </script>
|
|
|
25
|
|
|
26 <link rel="stylesheet" type="text/css" href="jquery.dataTables.css">
|
|
|
27 </head>
|
|
|
28 <body>
|
|
|
29 <table class="display dataTable" id="datatable" border="1" cellspacing="0" cellpadding="0" style="font-size: 12px;" >
|
|
|
30 <thead>
|
|
|
31 <tr><th>
|
|
|
32 END
|
|
|
33 chomp ($_ = <STDIN>);
|
|
|
34 s?\t?</th><th>?g;
|
|
|
35 print "$_</th></tr>\n";
|
|
|
36 #print "</tr>\n</thead>\n<tbody>\n";
|
|
|
37 print "</thead>\n<tbody>\n";
|
|
|
38 while (<>) {
|
|
|
39 print "<tr>\n";
|
|
|
40 my @fields = split('\t');
|
|
|
41 my $first=1;
|
|
|
42 for $cell(@fields) {
|
|
|
43 if($first == 1){
|
|
|
44 print "<td> $cell </td>";
|
|
|
45 $first=0;
|
|
|
46 }
|
|
|
47 elsif($cell =~ /^(\d|\s)+$/) {
|
|
|
48 print "<td align=\"right\">$cell</td>"; }
|
|
|
49 else {
|
|
|
50 print "<td>$cell</td>"; } }
|
|
|
51 print "</tr>\n"; }
|
|
|
52 #print "</tr>\n</tbody>\n</table></body></html>\n";
|
|
|
53 print "</tbody>\n</table></body></html>\n";
|
|
|
54
|
