Question : Manuscrit de Perl d'élimination des imperfections d'aide

Salut les experts, le

I ont écrit le manuscrit suivant de Perl, mais cela ne fonctionne pas et je ne peux pas voir pourquoi : class= " lineNumbers " >

1 de >

# " de 
) {
	#print « $user » ;
	# dossier ouvert de passwd pour vérifier si l'utilisateur existe sur ce système
	DOSSIER ouvert, « ) {# boucle pour chaque ligne dans le dossier de passwd
		#print « dans tandis que boucle pour l'utilisateur $user » ;
		#print $passwd_line ;
		# si l'utilisateur existe
		si (=~ m/$user/de $passwd_line) {
			$do pas _create=1 ;
			la copie « $user existe déjà sur le système ! \ n » ;
		}
	}
	# si cet utilisateur n'a pas déjà un compte sur le serveur
	si ($do pas _create==0) {
		# créer un compte
		système (« useradd $user ») ;
		$do pas _create=0 ;
	}
le manuscrit " clair " de >

The de class= de 

When que je cours le manuscrit, tout fonctionne, à moins qu'il n'entre jamais dans si la section pas (de _create de $do) ainsi essaye de recréer les utilisateurs qui sont déjà sur le système. J'ai pensé que ma syntaxe de regex était correcte pour rechercher une corde, mais apparemment son pas ..... aide du 

Any accueillie ! 

George 

  
  class= de 

Réponse : Manuscrit de Perl d'élimination des imperfections d'aide

$user pourrait avoir ou d'a \ n \ r \ n à sa queue.
Ajouter avant la ligne 16 :

chomp ($user) ;