Hace 15 dias empece a explorar el mundo de Perl. Estoy desarrollando una serie de scripts para optimizar el funcionamiento de un cluster de servers de correo basados en Communigate.
Tengo el siguiente script:
Using perl Syntax Highlighting
foreach my $UserName (sort keys %$Accounts)
{
my $accountData = $cli->GetAccount("$UserName\@$Domain");
my $storageUsed = $cli->GetAccountInfo("$UserName\@$Domain","StorageUsed");
if (my $test = @$accountData{'UseAppPassword'})
{
print "$UserName\@$Domain\, $storageUsed\n, $imbox\n";
}
++$nTotal;
}
print " $nTotal accounts were total, $nListed Listed, "
.($nTotal-$nListed)." left.\n";
{
my $accountData = $cli->GetAccount("$UserName\@$Domain");
my $storageUsed = $cli->GetAccountInfo("$UserName\@$Domain","StorageUsed");
if (my $test = @$accountData{'UseAppPassword'})
{
print "$UserName\@$Domain\, $storageUsed\n, $imbox\n";
}
++$nTotal;
}
print " $nTotal accounts were total, $nListed Listed, "
.($nTotal-$nListed)." left.\n";
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
con el cual obtengo un listado de las cuentas suspendidas por mi Anti Spam y la capacidad de estos buzones.
Ahora lo que necesito es borrar esas cuentas y volver a crearlas. La verdad he pensado en tomar la salida del script anterior y almacenarla en una variable y luego trabajar con esta pero no se si hacerlo como un arreglo o como hash...
Porfa les agradezco cualquier sugerencia...
Gracias
