Ir para o conteúdo

Verificar se utilizador existe

#!/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" ;
}