我的剧本:
#!/usr//bin/perl
#
# Script to balance accounts between servers
# By Philip Gabrielsen
#
use strict;
use warnings;
START:
print "\nZimbra account moving script\n";
print "First we will collect data from Zimbra, this may take a while.\n\n";
my %accounts;
DATACOLLECT:
print "Collecting Zimbra mailbox server(s)... ";
my $servers = `zmprov gas mailbox`;
print "OK\n";
print "Collecting numbers of accounts per server... ";
foreach my $server (split(/\n/, $servers)) {
$accounts{$server} = `zmprov -l gaa -s $server|wc -l`;
}
print "OK\n"; …