Cuestión : Escritura del Perl del depuración de la ayuda

Hola los expertos,

I han escrito la escritura siguiente del Perl, pero no está trabajando y no puedo ver por qué: class= " lineNumbers " >

1 del >

# codeBody del " prettyprint " del class= del id= " codeSnippet956917 " del >
) {
	#print “$user”;
	# archivo abierto del passwd para comprobar si el usuario existe en este sistema
	ARCHIVO abierto, “) {# lazo para cada línea en archivo del passwd
		#print “en mientras que lazo para el usuario $user”;
		#print $passwd_line;
		# si existe el usuario
		si (=~ m/$user/de $passwd_line) {
			$do no _create=1;
			¡la impresión “$user existe ya en sistema! \ n”;
		}
	}
	# si este usuario no tiene ya una cuenta en el servidor
	si ($do no _create==0) {
		# crear una cuenta
		sistema (“useradd $user”);
		$do no _create=0;
	}
la escritura " clara " de >

The del class= de 

When que funciono con la escritura, todo trabaja, a menos que nunca entre si (la sección no del _create de $do) así que intenta reconstruir a los usuarios que están ya en el sistema. ¡Pensé que mi sintaxis del regex estaba correcto para buscar una secuencia, pero al parecer su no ..... ayuda del 

Any dada la bienvenida! 

George 

  
  class= del 

Respuesta : Escritura del Perl del depuración de la ayuda

$user pudo tener o \ r \ n de a \ de n en su cola.
Agregar antes de la línea 16:

chomp ($user);