Verificar se usuário é root

Publicado por Perfil removido (última atualização em 18/12/2012)

[ Hits: 6.273 ]

Download root.pl




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.

  



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

Scripts recomendados

Simples Contador

"Codificação" de texto em Perl

Múltiplos de 7 - Decrescente

impares e pares

Graficos com barras em Perl


  

Comentários
[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




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts