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

Version imprimable

Bonjour,

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

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.

22/03/2013, 17h54
Lolo78

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.

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:

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....

25/03/2013, 11h16
Philou67430
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:

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) { ... }

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:

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:

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

25/03/2013, 13h47
Philou67430

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

Code:

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).

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:

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:

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

25/03/2013, 15h46
Philou67430

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:

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).

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

Voici la version qui fonctionne :
Code:

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:

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.

26/03/2013, 16h53
Philou67430

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.
26/03/2013, 19h54
Lolo78

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.

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

Code:

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:

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.

Déplace la ligne

Code:

my $pid;

avant la ligne

Code:

foreach my $ldap (@ldap) {

et remplace les lignes suivantes :
Code:

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

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