Verificação se utilizador existe ou não
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.
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.
Descrição
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.
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" ;
}