Questione : Scritto del Perl di ricerca degli errori di aiuto

Ciao gli esperti, il

I hanno scritto il seguente scritto del Perl, ma non sta funzionando e non posso vedere perché: class= " lineNumbers " >

1 del >

# codeBody " del prettyprint " " del class= del id= " codeSnippet956917 del >
) {
	#print “$user„;
	# lima aperta di passwd per controllare se l'utente esiste su questo sistema
	LIMA aperta, “) {# ciclo per ogni linea nella lima di passwd
		#print “in mentre ciclo per l'utente $user„;
		#print $passwd_line;
		# se l'utente esiste
		se (=~ m/$user/di $passwd_line) {
			$do non _create=1;
			la stampa “$user già esiste sul sistema! \ n„;
		}
	}
	# se questo utente già non ha un conto sull'assistente
	se ($do non _create==0) {
		# generare un cliente
		sistema (“useradd $user„);
		$do non _create=0;
	}
lo scritto " libero " di >

The del class= di 

When che faccio funzionare lo scritto, tutto funziona, a meno che non entri mai in se (la sezione non del _create di $do) in modo da prova a ricreare gli utenti che sono già sul sistema. Ho pensato che la mia sintassi del regex fosse corretta per la ricerca della stringa, ma apparentemente il relativo non ..... aiuto del 

Any accolto favorevolmente! 

George 

  
  class= del 

Risposta : Scritto del Perl di ricerca degli errori di aiuto

$user ha potuto avere o \ r \ n n \ di a alla relativa coda.
Aggiungere prima della linea 16:

chomp ($user);