# HG changeset patch
# User nml
# Date 1598285655 14400
# Node ID 705ebd286b5762e7528c061f6ec8deabc2ea268b
# Parent cd6da887a5f43afcc420bcef4d80274e2582090c
"planemo upload commit 7761f1e59039279728185e751f1a51b56fe14cb0"
diff -r cd6da887a5f4 -r 705ebd286b57 bundle_collection.pl
--- 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 "
-
+
-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;
- }
-
+
+
+ Bundle Collection Summary
-
-
-Bundle Collection Summary
+ Number of keys: $num_keys
+ Number of values: $num_vals
-Number of keys: $num_keys
-Number of values: $num_vals
-
-File name | File type |
";
+
+ File name | File type |
\n";
foreach my $key (sort(keys %information))
{
foreach my $val (keys %{$information{$key}} )
{
- printf $out "$key | $val |
";
+ printf $out " $key | $val |
\n";
}
}
-printf $out "
";
+printf $out "
\n