Muitos scripts que faço precisam de ser usados como root, senão haverão problemas nas execuções de comandos etc.

Uso esse script pra verificar se o usuário é root ou não.

• Download root.pl
• Enviar nova versão

Esconder código-fonte

#!/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();

Cálculo do MDC em Perl

Calc.pl

data do servidor em perl

Simples Contador

Usando comandos shell com Perl