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

Inserindo o nome de aluno e calculando média de suas notas

Escrevendo varias linhas em um arquivo qualquer

Lendo o conteúdo de uma página da Internet

Gerando senhas aleatórias

Lista de números aleatórios não-repetidos de um intervalo em Perl