Mercurial > repos > nml > bundle_collections
diff bundle_collection.pl @ 2:705ebd286b57 draft default tip
"planemo upload commit 7761f1e59039279728185e751f1a51b56fe14cb0"
author | nml |
---|---|
date | Mon, 24 Aug 2020 12:14:15 -0400 |
parents | bae199dc511f |
children |
line wrap: on
line diff
--- a/bundle_collection.pl Fri Aug 04 12:04:09 2017 -0400 +++ b/bundle_collection.pl Mon Aug 24 12:14:15 2020 -0400 @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/bin/env perl use strict; use warnings; @@ -52,57 +52,60 @@ printf $out "<!DOCTYPE html> <html> -<style type=\"text/css\"> - -body { - font-family: sans-serif; - color: #000; - } +<head> + <style type=\"text/css\"> + + body { + font-family: sans-serif; + color: #000; + } + + table { + margin-left: 3em; + text-align: center; + } + th { + text-align:center; + background-color: #000080; + color: #FFF; + padding: 0.4em; + } + td { + font-family: monospace; + text-align: left; + background-color: #EEE; + color: #000; + padding: 0.4em; + } + h2 { + color: #800000; + padding-bottom: 0; + margin-bottom: 0; + clear: left; + } + </style> +</head> -table { - margin-left: 3em; - text-align: center; - } -th { - text-align:center; - background-color: #000080; - color: #FFF; - padding: 0.4em; - } -td { - font-family: monospace; - text-align: left; - background-color: #EEE; - color: #000; - padding: 0.4em; - } -h2 { - color: #800000; - padding-bottom: 0; - margin-bottom: 0; - clear: left; - } -</style></head> +<body> + + <h2 id=\"M0\">Bundle Collection Summary</h2><br><br> - <body> - -<h2 id=\"M0\">Bundle Collection Summary</h2><br><br> + Number of keys: $num_keys<br> + Number of values: $num_vals<br><br> -Number of keys: $num_keys<br> -Number of values: $num_vals<br><br> - -<table border=\"1\"><tr><th>File name</th><th>File type</th></tr>"; + <table border=\"1\"> + <tr><th>File name</th><th>File type</th></tr>\n"; foreach my $key (sort(keys %information)) { foreach my $val (keys %{$information{$key}} ) { - printf $out "<tr><td>$key</td><td>$val</td></tr>"; + printf $out " <tr><td>$key</td><td>$val</td></tr>\n"; } } -printf $out "</table></body></html>"; +printf $out " </table>\n</body>\n</html>"; close $out; @@ -114,7 +117,7 @@ =head1 SYNOPSIS - bundle_collection.pl -h html_file -p output_path -o "key=value" + bundle_collection.pl -h html_file -p output_path -i "key=value" =back -=cut \ No newline at end of file +=cut