- Código:
my @modules = ("Modulo1","Modulo2","Modulo3","Modulo4");
foreach my $module (@modules)
{
my $mod = eval "use $module;1;";
if ($mod){
print "Modulo instalado $module\n";
}
else {
print "Modulo nao instalado $module\n";
}
}
Participe do fórum, é rápido e fácil