- or download this
#!/usr/bin/perl -w
use warnings;
...
. . . your attempt to solve the problem . . .
- or download this
host user DB usage select insert show view ...
--------- ------- --- ----- ------ ------ --------- ...
...
localhost jma_rw jma Y Y Y Y
prod robo jma Y ** **
. . .
- or download this
#!/usr/bin/perl -w
use warnings;
...
for my $perm (sort { $perms{$a} <=> $perms{$b} } keys %perms) {
printf "% 2u: %s\n", $perms{$perm} + 1, $perm;
}