Вопрос : Сценарий perl доводка помощи

Hi специалисты,

I писали следующий сценарий Perl, но он не работает и я не могу увидеть почему: class= " lineNumbers " >

1 >

# " prettyprint " " class= id= " codeSnippet956917 >
) {
	#print «$user»;
	# открытый архив passwd для того чтобы проверить существует ли потребитель на этой системе
	открытый АРХИВ, «) {# петля для каждой линии в архиве passwd
		#print «в пока петля для потребителя $user»;
		#print $passwd_line;
		# если потребитель существует
		если (=~ m/$user/$passwd_line) {, то
			$do не _create=1;
			печать «$user уже существует на системе! \ n»;
		}
	}
	# если этот потребитель уже не имеет учет на сервере
	если ($do не _create==0) {, то
		# создайте учет
		система («useradd $user»);
		$do не _create=0;
	}
сценарий >

The class= 

When, котор я бегу сценарий, все работает, кроме того что он никогда не идет в если (раздел не _create $do) поэтому пытается воссоздать потребителей, то которые находятся уже на системе. Я думал что мой синтаксис regex был вводить поправку на ищущ шнур, но явно свою не ..... приветствованную помощь 

Any! 

George 

  
  class= 

Ответ : Сценарий perl доводка помощи

$user могло иметь или a \ n \ r \ n на своем кабеле.
Добавьте перед линией 16:

chomp ($user);