Verificação se utilizador existe ou não
Publicado por Rubem Mota (última atualização em 02/03/2012)
[ Hits: 3.991 ]
Homepage: rubemlrm.com
Boa noite.
Desta vez venho apresentar mais um pequeno script feito por mim. Este script tem como fundamento verificar se um utilizador existe ou não no sistema Linux e se existir, além de nos mostrar uma mensagem a dizer que existe ainda vai identificar o UID desse utilizador. Caso contrário vai mostrar uma mensagem de erro a dizer que o utilizador não existe.
Atenção não foram utilizados comandos bash por isso é tudo perl scripting.
#!/usr/bin/perl use warnings; use strict; my @finalusers; my $utilizador; my $statuscode = 0; my $uid; #Analise se foi intruzido um nome ou não if(@ARGV != 1){die "Argumento inválido";} chomp($utilizador = $ARGV[0]); open(FILE, "/etc/passwd") || die($!); chomp(my @utilizadores = <FILE>); close(FILE); foreach my $date (@utilizadores){ chomp $date; my @finalusers = split /:/, $date; chomp(@finalusers); if($finalusers[0] eq $utilizador){ $uid = $finalusers[2]; $statuscode++; } } if( $statuscode != 1){ print "O $utilizador NÃO se encontra criado no sistema\n"; }else{ print "o $utilizador JÁ se encontra criado no sistema! O seu UID é $uid !\n" ; }
Tirando screenshots facilmente !
Algoritmo de Euclides estendido em Perl
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (0)
O que você está ouvindo agora? [2] (189)
warsaw parou de funcionar após atualização do sistema (solução) (10)