#!/opt/perl/bin/perl
use Storable;
my $sd = retrieve 'room_data.stor';
my %rooms;
for my $conf (keys %$sd) {
for my $room (keys %{$sd->{$conf}}) {
my $data = $sd->{$conf}->{$room};
$rooms{$room} = $data;
}
}
my $total;
for my $r (sort { $a->[3] <=> $b->[3] } grep { $_->[3] != 0 } values %rooms) {
next unless $r->[3] >= 4;
$total += $r->[3];
printf "%3d: %-50s | %s\n", $r->[3], $r->[1], $r->[2];
}
print "total users: $total\n";