[Madrid-pm] Presentacion y primera. SOS

[Joaquin Ferrero]

Miren Urkixo escribió:
> Hola soy nueva por aqui, buenas noches
> Estoy empezando con perl ytengo que hacer unas cosillas.
> bien, os comento a ver si me podeis hechar una mano.
> Resulta que estoy haciendo un programita para dar de alta, en un linux, 
> usuairos. lo tengo que hacer y ademas con perl.
> bien he hecho algo que lleva el codigo de abajo con el que pretendo dar de 
> alta un usuari ocon el comando:
> 
> useradd -g users -p pass -d $aplic_base\/$aplicacion -m -s \/bin\/bash 
> $aplicacion
> donde aplic_base es un directorio (/home/pruebas) y $aplicacion es el 
> usuario
> 
> me da unerror en la linea del user add.
> Me podriais ayudar?
> muchas gracias y un saludo
> 
> Ah por otra parte el comando este me pide el password encriptado (cryp) me 
> podeis ayudar tambien en esto?
> muchas gracias
> 
> if($aplicacion ne ""){
>         useradd -g users -p pass -d $aplic_base\/$aplicacion -m -s 
> \/bin\/bash $aplicacion;
> 
> }else{

Bienvenida.

Es que esa línea no es una línea Perl... es una línea Bash o Shell. 
Debes escaparla. Prueba con

qx(useradd -g users -p pass -d $aplic_base\/$aplicacion -m -s
  /bin/bash $aplicacion);

Y en cuanto al password, se lo estás pasando por el parámetro '-p'.

Para generar la contraseña puedes usar la función de Perl crypt:
http://perldoc.perl.org/functions/crypt.html

JF