hjp
/
postgres-monitor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Port to Perl 5.24

This commit is contained in:
Peter J. Holzer 2019-06-09 20:21:26 +02:00
parent 9edf81640a
commit 8dd77c2055
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
reports/diskusage
View File

@ -1,10 +1,9 @@
#!/usr/bin/perl
use charnames ':full'; # only necessary before v5.16
use strict;
use v5.10;
use v5.24;
use warnings;
use autodie;
use experimental qw(autoderef);
use DBIx::SimpleConnect;
use Encode qw(:fallbacks encode);
@ -62,7 +61,7 @@ say $fh "<th class='num'>", "Table size (bytes)", "</th>";
say $fh "<th class='num'>", "Indexes size (bytes)", "</th>";
say $fh "</tr>";
for my $s (sort { $overview->{$b}{''}{total_size} <=> $overview->{$a}{''}{total_size} } keys $overview) {
for my $s (sort { $overview->{$b}{''}{total_size} <=> $overview->{$a}{''}{total_size} } keys $overview->%*) {
say $fh "<tr class='schema'>";
say $fh "<td class='name'>", escape($s), "</td>";
@ -72,7 +71,7 @@ for my $s (sort { $overview->{$b}{''}{total_size} <=> $overview->{$a}{''}{total_
say $fh "<td class='num'>", pretty($overview->{$s}{''}{indexes_size}), "</td>";
say $fh "</tr>";
for my $t (sort { $overview->{$s}{$b}{total_size} <=> $overview->{$s}{$a}{total_size} } keys $overview->{$s}) {
for my $t (sort { $overview->{$s}{$b}{total_size} <=> $overview->{$s}{$a}{total_size} } keys $overview->{$s}->%*) {
next unless $t; # schema - we already have that
say $fh "<tr class='table'>";