Existencia de usuario

[Patricio Muñoz]

Jhamil Mercado escribió:

> Existe alguna funcion, o como se puede verificar si
> existe una determinada cuenta de usuario, desde un
> script en perl?
> 
> intente con el grep:
> $error = system "grep $user /etc/passwd";
> 
> comparando si el error es 0 o diferente,
> funciona parcialmente , ya que si se encuentra
> patrones parecidos pareceria que lo ubiese encontrado
> realmente
> 
> espero vuestras sugerencias
> 
> 
> salu2
> 

Por supuesto, un enjuague de Perl y expresiones regulares al archivo 
passwd, no es malo.

Ve si te sirve este escript para leer los usuarios (cuentas) de tu sistema.

#!/usr/bin/perl -W

$archivo="/etc/passwd";

open(FILE, $archivo);
while($var=<FILE>)
{
         $var =~ s/:/ /g;
         $var =~ s/^(\w+)/$1/;
         print "$1 \n";
}
close FILE;

saludos