Frage : Hilfenentstörungs-Perl-Index

Hallo haben Experten,

I den folgenden Perl-Index geschrieben, aber es funktioniert nicht und ich kann nicht sehen, warum: 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

# definieren Variablen
$user_remote_file='root@ 1.1.1.1: /usr/local/test/user.txt';
$local_path= " /usr/local/test/ „;
$local_file= " user.txt ";
$user_list=$local_path. $local_file;
$do nicht _create=0;

# scp Akte vom Phasennullpunkt zum Verzeichnis des lokalen Tests
System („scp“, $user_remote_file, $local_path);

# geöffnete Benutzerliste für Messwert
öffnen (user_list) oder sterben („nicht könnte geöffnete Akte $user_list! ");

# Schleife für jeden Benutzer in der Liste
während ($user = ) {
	#print „$user“;
	# geöffnete Passwdakte, zum zu überprüfen, ob Benutzer von diesem System existiert
	geöffnete AKTE, „) {# Schleife für jede Linie in der Passwdakte
		#print „in während Schleife für Benutzer $user“;
		#print $passwd_line;
		#, wenn der Benutzer existiert
		wenn ($passwd_line =~ m/$user/) {
			$do nicht _create=1;
			Druck „$user existiert bereits vom System! \ n“;
		}
	}
	#, wenn dieser Benutzer nicht bereits ein Konto auf dem Bediener hat
	wenn ($do nicht _create==0) {
		# ein Konto verursachen
		System („useradd $user“);
		$do nicht _create=0;
	}


The Index soll /etc/passwd nach den Benutzern in der Akte userlist Akte suchen - dieses ist eine Textdatei mit einer Liste von Benutzern, einer auf jeder Linie.

When, das ich den Index, alles laufen lasse, arbeitet, ausgenommen es nie in einsteigt, wenn ($do nicht _create) Abschnitt also versucht, Benutzer neu zu erstellen, die bereits auf dem System sind. Ich dachte, dass meine regex Syntax für das Suchen einer Schnur korrekt war, aber anscheinend seine nicht ..... begrüßte

Any Hilfe!

George

Antwort : Hilfenentstörungs-Perl-Index

$user konnte a- \ n-oder \ r \ n an seinem Endstück haben.
Vor Linie 16 hinzufügen:

chomp ($user);
Weitere Lösungen  
 
programming4us programming4us