Pular para o conteúdo

Verificar se usuário é root

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.

Perfil removido removido
Hits: 6.640 Categoria: Perl Subcategoria: Introdução
  • Download
  • Nova versão
  • Indicar
  • Denunciar

Descrição

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

Calculadora

Calcula equação de segundo grau completa

Renomeando arquivos de forma padronizada

localtime.pl

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

#1 Comentário enviado por fvox em 18/12/2012 - 08:57h
Não precisa da função system() pra isso não.
Veja:

#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

if($>) {
say 'Você não é o root';
} else {
say 'Você é o root!';
}
#2 Comentário enviado por removido em 20/12/2012 - 15:42h
vlw fvox , nem sabia '-'

Contribuir com comentário

Entre na sua conta para comentar.