| Revision: | 1.1 |
| Committed: | Mon Jul 9 20:24:45 2007 UTC (17 years ago) by elmex |
| Branch: | MAIN |
| CVS Tags: | HEAD |
| Log Message: | some changes... |
| # | Content |
|---|---|
| 1 | #!/opt/perl/bin/perl |
| 2 | use Storable; |
| 3 | my $sd = retrieve 'room_data.stor'; |
| 4 | |
| 5 | my %rooms; |
| 6 | for my $conf (keys %$sd) { |
| 7 | for my $room (keys %{$sd->{$conf}}) { |
| 8 | my $data = $sd->{$conf}->{$room}; |
| 9 | $rooms{$room} = $data; |
| 10 | } |
| 11 | } |
| 12 | |
| 13 | my $total; |
| 14 | for my $r (sort { $a->[3] <=> $b->[3] } grep { $_->[3] != 0 } values %rooms) { |
| 15 | next unless $r->[3] >= 4; |
| 16 | $total += $r->[3]; |
| 17 | printf "%3d: %-50s | %s\n", $r->[3], $r->[1], $r->[2]; |
| 18 | } |
| 19 | print "total users: $total\n"; |