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();

Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl

Saiba quanto de energia seu PC gasta aproximadamente por mês

Assistente de instalação por apt!

Calculadora de IMC em Perl

localtime.pl