Ma boucle ne passe pas au prochain élément : next

**dubis** · 22/03/2013, 15h28

Bonjour,

J'ai un petit soucis dans la boucle de mon script lié à mon inexpérience :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
my @ldap = (`ldapsearch`) ;# Cette commande est volontairement tronquée list de tous les utilisateurs
foreach my $ldap (@ldap) {
	if ($ldap =~ /uid\=/) {
		my @uid= split/,/,$ldap;
		my @user = split /=/,$uid[0]; 
		$login = $user[1];
		print "Login : $login\n";
		my $pid = `ps \-fu $login | grep GTK2_passwd`;
		print "$pid\n";
			if ($pid =~ /GTK2_passwd/){
			next ;
			}
	}
 
	if ($ldap =~ /shadowLastChange/) {
		my @shdw = split/:/,$ldap;
		chomp ($shdw[1]);
		$shadow= mktime (0, 0, 0, $shdw[1], 0, 70);
		if (($local_unixtime - $shadow) > $unix_expire) {
			#print " on lance le GTK pour $login\n";
			my $cmd_disp_nb = `/usr/NX/bin/nxserver --list $login | grep localhost` ;
			chomp ($cmd_disp_nb);
			my @disp_nb = split /\s/,$cmd_disp_nb  ;
			#print "$disp_nb[0]\n";
			system ("su - $login -c \"export DISPLAY=:$disp_nb[0].0 && /usr/sbin/GTK2_script.pl\"");			
 
		}	
	}
}

Comme vous avez pu l'observer ce script démarre un autre script qui contient des object GTK. Je les ai séparés en deux car cette partie doit aller dans la crontab et c'est mieux s'ils sont idépendant. C'est pour cela que je fait un test avec la commande `ps` pour ne pas démarrer à chaque fois le script dans le bureau de l'utilisateur dont l'apparition de 50 fenêtre risquent de les perturber.

Comment faire pour faire le next proprement sans cassé la boucle? J'ai essayé de nommé la boucle sans succès.

Merci de votre aide.

**Lolo78** · 22/03/2013, 17h54

Je n'ai pas bien compris ce que tu voulais faire, mais si ton code passe bien dans le next de la ligne 12, alors tu repasseras à la ligne 3 avec l'élément suivant du tableau @ldap.

Donc, pour moi, le next et la boucle foreach sont construits correctement, le problème est sans doute ailleurs.

**dubis** · 25/03/2013, 10h22

Merci Lolo,

En fait ce n'est pas le cas car quoi qu'il en soit l'application lancée par la commande "system" est toujours lancée (ligne 26), et donc l'utilisateur à une nouvelle fenêtre.
J'ai essayé de modifier le code par celui-ci mais cela ne fonctionne pas non plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
my @ldap = (`ldapsearch`) ;# Cette commande est volontairement tronquée list de tous les utilisateurs
foreach my $ldap (@ldap) {
	my $pid="";
	if ($ldap =~ /uid\=/) {
		my @uid= split/,/,$ldap;
		my @user = split /=/,$uid[0]; 
		$login = $user[1];
		print "Login : $login\n";
		my $pid = `ps \-fu $login | grep GTK2_passwd`;
		print "$pid\n";
			if ($pid =~ /GTK2_passwd/){
			$pid ="TRUE";
			print "$pid\n";
			}
	}
	unless ($pid eq "FALSE") {  
		if ($ldap =~ /shadowLastChange/) {
			my @shdw = split/:/,$ldap;
			chomp ($shdw[1]);
			$shadow= mktime (0, 0, 0, $shdw[1], 0, 70);
				if (($local_unixtime - $shadow) > $unix_expire) {
					#print " on lance le GTK pour $login\n";
					my $cmd_disp_nb = `/usr/NX/bin/nxserver --list $login | grep localhost` ;
					chomp ($cmd_disp_nb);
					my @disp_nb = split /\s/,$cmd_disp_nb  ;
					#print "$disp_nb[0]\n";
					system ("su - $login -c \"export DISPLAY=:$disp_nb[0].0 && /usr/sbin/GTK2_script.pl\"");	
					next;
				}	
		}
	}
}

Comme je le montre ici, j'essaye que le GTK ne soit pas lancé s'il est trouvé dans la commande système "ps".
En espérant être plus clair....

**Philou67430** · 25/03/2013, 11h16

Le problème de ta dernière version, est que tu testes $pid avec "FALSE", alors que tu l'initialises avec "", donc ton test unless ($pid eq "FALSE") réussi toujours.

Je te conseille donc d'écrire ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
my $pid; # vaut par défaut "undef"
if ($ldap =~ /uid\=/) {
  ...
  $pid = `ps \-fu $login | grep GTK2_passwd`;
  print "PID found: $pid\n";
}
if (!$pid) {
  ...
}

**dubis** · 25/03/2013, 13h36

Merci Philou,

Mais le test de $pid n'est toujours pas validé même avec ta façon ....

J'ai essayé aussi celle -ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
foreach my $ldap (@ldap) {
	my $pid;
	if ($ldap =~ /uid\=/) {
		my @uid= split/,/,$ldap;
		my @user = split /=/,$uid[0]; 
		$login = $user[1];
		print "Login : $login\n";
		$pid = `ps \-fu $login | grep GTK2_passwd`;
 
	}
	if ($ldap =~ /shadowLastChange/) {
			my @shdw = split/:/,$ldap;
			chomp ($shdw[1]);
			$shadow= mktime (0, 0, 0, $shdw[1], 0, 70);
				if (($local_unixtime - $shadow) > $unix_expire) {
					#print " on lance le GTK pour $login\n";
					my $cmd_disp_nb = `/usr/NX/bin/nxserver --list $login | grep localhost` ;
					chomp ($cmd_disp_nb);
					my @disp_nb = split /\s/,$cmd_disp_nb  ;
					#print "$disp_nb[0]\n";
					if (!$pid) { 	
						print "PID not found\n";
						system ("su - $login -c \"export DISPLAY=:$disp_nb[0].0 && /usr/sbin/GTK2_passwd.pl\" &");
						next;
					}else{
						print "PID found\n";
					}	
				}
	}
}

En plus de démarrer le GTK voici ce que j'ai sur le prompt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
ldapclient:~# ./ShadowLastChange_extract.pl
Login : ckiki
PID not found
Login : ckoko
PID not found
ldapclient:~# ./ShadowLastChange_extract.pl
Login : ckiki
PID not found
Login : ckoko
PID not found
ps -fu ckiki | grep GTK
ckiki     9690     1  0 13:35 pts/0    00:00:00 su - ckiki -c export DISPLAY=:1025.0 && /usr/sbin/GTK2_passwd.pl
ckiki     9694  9690  0 13:35 pts/0    00:00:00 -su -c export DISPLAY=:1025.0 && /usr/sbin/GTK2_passwd.pl
ckiki     9700  9694  0 13:35 pts/0    00:00:00 /usr/bin/perl -w /usr/sbin/GTK2_passwd.pl
ckiki     9728     1  0 13:35 pts/0    00:00:00 su - ckiki -c export DISPLAY=:1025.0 && /usr/sbin/GTK2_passwd.pl
ckiki     9732  9728  0 13:35 pts/0    00:00:00 -su -c export DISPLAY=:1025.0 && /usr/sbin/GTK2_passwd.pl
ckiki     9738  9732  0 13:35 pts/0    00:00:00 /usr/bin/perl -w /usr/sbin/GTK2_passwd.pl

A voit 2 PID 9694 et 9732 alors que le script n'aurait pas du envoyer le processus 9732...... Pareil pour le login ckoko

**Philou67430** · 25/03/2013, 13h47

Pourrais-tu poster exactement le code que tu as testé avec ma méthode ?
et poste également le résultat de cette expression :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print "LDAP content:\n", @ldap, "END of LDAP\n";

que tu insèreras avant le foreach, afin que l'on puisse tester en mode debug, comme tu pourrais d'ailleurs le faire (perl -d ShadowLastChange_extract.pl).

**dubis** · 25/03/2013, 14h10

Philou,

J'aurai du peut être commencer par cela encore désolé ...
Voici le script entier sans la commande ldapsearch avec tes commandes coomme tu l'a demandé.... La commande ldapserach est volotairment tronqué car c'est un replicat d'un vrai annuaire que j'ai réduit à 2 entrée dans la branche People et je travaille avec des machine virtuelles...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
35
36
37
38
39
40
41
42
43
44
#!/usr/bin/perl
use warnings;
use strict;
use POSIX qw/mktime/;
my $nb_day;
my $shadow = 0 ;
my $login ;
 
#LocalTime2UnixTime :
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =localtime(time);
$year += 1900;
my $local_unixtime = mktime ($sec, $min, $hour, $mday, $mon+1, $year-1900,-1,-1,-1);
my $unix_expire = mktime (0, 0, 0, 90 , 0, 70);
 
#Extract shadowLastChange
my @ldap = (`ldapsearch `);
foreach my $ldap (@ldap) {
	my $pid;
	print "LDAP content:\n", @ldap, "END of LDAP\n";
	if ($ldap =~ /uid\=/) {
		my @uid= split/,/,$ldap;
		my @user = split /=/,$uid[0]; 
		$login = $user[1];
		print "Login : $login\n";
		$pid = `ps \-fu $login | grep GTK2_passwd`;
		print "PID Found : $pid\n";
	}
	if (!$pid) {  
		if ($ldap =~ /shadowLastChange/) {
			my @shdw = split/:/,$ldap;
			chomp ($shdw[1]);
			$shadow= mktime (0, 0, 0, $shdw[1], 0, 70);
				if (($local_unixtime - $shadow) > $unix_expire) {
					#print " on lance le GTK pour $login\n";
					my $cmd_disp_nb = `/usr/NX/bin/nxserver --list $login | grep localhost` ;
					chomp ($cmd_disp_nb);
					my @disp_nb = split /\s/,$cmd_disp_nb  ;
					#print "$disp_nb[0]\n";
					system ("su - $login -c \"export DISPLAY=:$disp_nb[0].0 && /usr/sbin/GTK2_passwd.pl\" &");
					next;
				}	
		}
	}
}

Voici le prompt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
ldapclient:~# .//ShadowLastChange_extract.pl
LDAP content:
 
dn: uid=ckiki,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
dn: uid=ckoko,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
 
END of LDAP
LDAP content:
 
dn: uid=ckiki,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
dn: uid=ckoko,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
 
END of LDAP
Login : ckiki
PID Found : ckiki     9728     1  0 13:35 pts/0    00:00:00 su - ckiki -c export DISPLAY=:1025.0 && /usr/sbin/GTK2_passwd.pl
ckiki     9732  9728  0 13:35 pts/0    00:00:00 -su -c export DISPLAY=:1025.0 && /usr/sbin/GTK2_passwd.pl
ckiki     9738  9732  0 13:35 pts/0    00:00:00 /usr/bin/perl -w /usr/sbin/GTK2_passwd.pl
 
LDAP content:
 
dn: uid=ckiki,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
dn: uid=ckoko,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
 
END of LDAP
LDAP content:
 
dn: uid=ckiki,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
dn: uid=ckoko,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
 
END of LDAP
LDAP content:
 
dn: uid=ckiki,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
dn: uid=ckoko,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
 
END of LDAP
Login : ckoko
PID Found : ckoko   9706     1  0 13:35 pts/0    00:00:00 su - ckoko -c export DISPLAY=:1024.0 && /usr/sbin/GTK2_passwd.pl
ckoko   9707  9706  0 13:35 pts/0    00:00:00 -su -c export DISPLAY=:1024.0 && /usr/sbin/GTK2_passwd.pl
ckoko   9710  9707  0 13:35 pts/0    00:00:00 /usr/bin/perl -w /usr/sbin/GTK2_passwd.pl
 
LDAP content:
 
dn: uid=ckiki,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
dn: uid=ckoko,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
 
END of LDAP
LDAP content:
 
dn: uid=ckiki,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
dn: uid=ckoko,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
 
END of LDAP
LDAP content:
 
dn: uid=ckiki,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
dn: uid=ckoko,ou=People,dc=domain,dc=com
shadowLastChange: 15706
 
 
END of LDAP

On voit qu'il y a 2 passages et c'est pas ce que je désire.....

Merci

**Philou67430** · 25/03/2013, 15h46

Il n'y a pas d'erreur dans ce script, qui devrait fonctionner (mais que je ne peux pas simuler, du fait que je n'ai pas les processus qui tournent chez moi).

Donc il te faut aller en mode debug et ajouter un breakpoint sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if (!$pid) {

pour visualiser le contenu de $pid.

Si tu n'y arrives, ajoute cette ligne AVANT le if en question (et SUPPRIME la ligne de print que je t'ai fait ajouté avant).

**dubis** · 26/03/2013, 11h28

Il faut déclarer le scalaire $pid en amont.....

Voici la version qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
35
36
37
38
39
40
41
42
43
44
#!/usr/bin/perl
use warnings;
use strict;
use POSIX qw/mktime/;
my $nb_day;
my $shadow = 0 ;
my $login ;
my $pid;
 
#LocalTime2UnixTime :
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =localtime(time);
$year += 1900;
my $local_unixtime = mktime ($sec, $min, $hour, $mday, $mon+1, $year-1900,-1,-1,-1);
my $unix_expire = mktime (0, 0, 0, 90 , 0, 70);
 
#Extract shadowLastChange
my @ldap = (`ldapsearch `);
foreach my $ldap (@ldap) {
	#print "LDAP content:\n", @ldap, "END of LDAP\n";
	if ($ldap =~ /uid\=/) {
		my @uid= split/,/,$ldap;
		my @user = split /=/,$uid[0]; 
		$login = $user[1];
		print "Login : $login\n";
		$pid = `ps \-fu $login | grep GTK2_passwd`;
		#print "PID Found : $pid\n";
	}
	if (!$pid) { 
		if ($ldap =~ /shadowLastChange/) {
			my @shdw = split/:/,$ldap;
			chomp ($shdw[1]);
			$shadow= mktime (0, 0, 0, $shdw[1], 0, 70);
				if (($local_unixtime - $shadow) > $unix_expire) {
					#print " on lance le GTK pour $login\n";
					my $cmd_disp_nb = `/usr/NX/bin/nxserver --list $login | grep localhost` ;
					chomp ($cmd_disp_nb);
					my @disp_nb = split /\s/,$cmd_disp_nb  ;
					#print "$disp_nb[0]\n";
					system ("su - $login -c \"export DISPLAY=:$disp_nb[0].0 && /usr/sbin/GTK2_passwd.pl\" &");
					next;
				}	
		}
	}
}

En découle 2 questions :
Pourquoi la valeur d'un scalaire se perd apres une condition à la suite d'une autre? En effet, la valeur de $pid était bien initialisée ( j'ai fait plein de print de celle ci ) mais elle s'est perdue après le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 if (!$pid){

J'ai aussi essayé le mode debug cela ne m'a pas permit de trouver la solution et j'ai quand même compris qu'il fallait faire un c pour continue, et j'ai ensuite deviné qu'il fallait taper un b #de_ligne pour faire le break point. (http://goldenink.com/perl/perldebug.html)

Alors Pourquoi ce mode s'arrêtait sur la ligne 5 à la déclaration de $nb_day? Y avait-il aussi un bug à la déclaration de ce scalaire???

Merci de votre aide et des ces 2 dernières réponses.

**Philou67430** · 26/03/2013, 16h53

Deux choses :
- la déclaration de $pid était au bon endroit : il doit être ré-initialisé à "undef" à chaque nouvelle boucle, car sinon, si sa valeur devient différente de "undef" parce que l'on trouverait un pid, elle le resterait jusqu'à la fin du script (donc tu ne lanceras pas de script quand le pid n'existe pas).
- le mode debug entre par défaut en mode "pas à pas". Donc la ligne 5 est la première ligne exécutable sur laquelle il s'arrête. Pour l'aide du mode debug, tape "h", et pour avancer en pas à pas, soit "s" soit "n".

Pour moi, ton dernier script n'est pas fonctionnel : il ne lance pas les process quand c'est nécessaire.

**Lolo78** · 26/03/2013, 19h54

Même avis que Philou: la déclaration de $pid doit se trouver sous le foreach, là où il se trouvait sur la version antérieure.

**dubis** · 27/03/2013, 09h26

Je viens de refaire un essai avec cette version qui contient plus de print

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#!/usr/bin/perl
use warnings;
use strict;
use POSIX qw/mktime/;
my $nb_day;
my $shadow = 0 ;
my $login ;
 
 
#LocalTime2UnixTime :
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =localtime(time);
$year += 1900;
my $local_unixtime = mktime ($sec, $min, $hour, $mday, $mon+1, $year-1900,-1,-1,-1);
my $unix_expire = mktime (0, 0, 0, 90 , 0, 70);
 
#Extract shadowLastChange
my @ldap = (`ldapsearch`);
foreach my $ldap (@ldap) {
	my $pid;
	#print "LDAP content:\n", @ldap, "END of LDAP\n";
	if ($ldap =~ /uid\=/) {
		my @uid= split/,/,$ldap;
		my @user = split /=/,$uid[0]; 
		$login = $user[1];
		#print "Login : $login\n";
		$pid = `ps \-fu $login | grep GTK2_passwd`;
		print "PID Found : $pid\n";
	}
	if (!$pid) { 
		print "PID Not Found\n";
		if ($ldap =~ /shadowLastChange/) {
			my @shdw = split/:/,$ldap;
			chomp ($shdw[1]);
			$shadow= mktime (0, 0, 0, $shdw[1], 0, 70);
				if (($local_unixtime - $shadow) > $unix_expire) {
					print " on lance le GTK pour $login\n";
					my $cmd_disp_nb = `/usr/NX/bin/nxserver --list $login | grep localhost` ;
					chomp ($cmd_disp_nb);
					my @disp_nb = split /\s/,$cmd_disp_nb  ;
					print "Display Number: $disp_nb[0]\n";
					if ($disp_nb[0]) {
					system ("su - $login -c \"export DISPLAY=:$disp_nb[0].0 && /usr/sbin/GTK2_passwd.pl\" &");
					}
				next;
				}	
		}
	}
}

J'ai le prompt suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
PID Not Found
PID Found : 
PID Not Found
PID Not Found
 on lance le GTK pour ckiki
Use of uninitialized value $disp_nb[0] in concatenation (.) or string at /root/ShadowLastChange_extract.pl line 40.
Display Number: 
PID Not Found
PID Found : ckoko  12276     1  0 09:12 pts/0    00:00:00 su - ckoko -c export DISPLAY=:1024.0 && /usr/sbin/GTK2_passwd.pl
ckoko  12277 12276  0 09:12 pts/0    00:00:00 -su -c export DISPLAY=:1024.0 && /usr/sbin/GTK2_passwd.pl
ckoko  12280 12277  0 09:12 pts/0    00:00:00 /usr/bin/perl -w /usr/sbin/GTK2_passwd.pl
ckoko  12313     1  0 09:15 pts/0    00:00:00 su - ckoko -c export DISPLAY=:1024.0 && /usr/sbin/GTK2_passwd.pl
ckoko  12315 12313  0 09:15 pts/0    00:00:00 -su -c export DISPLAY=:1024.0 && /usr/sbin/GTK2_passwd.pl
ckoko  12318 12315  0 09:15 pts/0    00:00:00 /usr/bin/perl -w /usr/sbin/GTK2_passwd.pl
 
PID Not Found
 on lance le GTK pour ckoko
Display Number: 1024
PID Not Found
PID Not Found

Bien qu'il ait un valeur dans $pid, elle passée en undef avant le if de la ligne 29 bien qu'il avait une valeur en ligne 27.
Par contre si je défini $pid undef à la ligne 8 le comportement est normale????? Ceci dit, j'ai le même problème pour $login et les autres scalaire que j'ai mis en début de script.

**Philou67430** · 27/03/2013, 14h18

Déplace la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $pid;

avant la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

foreach my $ldap (@ldap) {

et remplace les lignes suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
	if (!$pid) { 
		print "PID Not Found\n";
		if ($ldap =~ /shadowLastChange/) {

ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
	else ($ldap =~ /shadowLastChange/) { 
		print "PID Not Found\n";
		if ($pid) {
		  undef $pid;
		}
		else {

Ma boucle ne passe pas au prochain élément : next

Programmation et administration système Perl

Discussions similaires

Partager

Partager