8 my $redis = Redis->new;
11 foreach my $p ( qw(ZTEDSLAM ZTEMSAN CPE) ) {
12 foreach my $k ( $redis->keys("$p.*") ) {
13 $status->{$k} = eval { $redis->scard($k) } || $redis->get($k);
14 if ( $k =~ m/^(ZTE\w+)\.(\d+\.\d+\.\d+\.\d+)\.(\w+)/ ) {
15 #$status->{$1}->{$2}->{$3} = $status->{$k};
16 $status->{poll}->{$1}->{$3} += $status->{$k};
17 } elsif ( $k =~ m/^CPE\.(.+)/ ) {
18 $status->{poll}->{CPE}->{$1} = $status->{$k};
23 $status->{info} = $redis->info;