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

Calcula equação de segundo grau completa

Programa que separa os dígitos de um inteiro

Graficos com barras em Perl

Escrevendo varias linhas em um arquivo qualquer

Crivo de Eratóstenes Simples em Perl