Muitos scripts q eu faço precisam de ser usados como root ,senão haveram problemas na execuções de comandos , etc ... , eu uso esse script pra verificar se o user é root ou não
verifica_root();
#!/usr/bin/perl
#By MMxM
#Script que verifica se usuario e root
#antes de executar
sub verifica_root{
$id = system("id -u > /dev/null");
if ($id = 0){
print "\nyou are root ^_^\n";
#sub main_function
} else {
print q {
Voce nao tem os privelegios necessarios
para usar esse script
};
exit;
}
}
verifica_root();