Discussion :

[vavincavent]

Bonjour,

je débute avec perl et j'étudie un programme existant.
je n'arrive pas à "traduire" cette phrase :

Code :

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

1
2
 
$DataDir =~ s{^~([^/]*)}{$1?(getpwnam($1))[7]:$ENV{HOME}}ex;

Pouvez-vous m'aider?

Cordialement,

Vavincavent

[iblis]

Pour faire court :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
$DataDir =~ s{# 		substitue
	^~			# ligne débutant par ~
	([^/]*)			# capture toute chaîne consécutive au ~ qui ne contient pas /
	}
	{			# remplace par
	$1?			# si capture il y a
	(getpwnam($1))[7]			# par le home directory de l'utilisateur qui a pour nom la capture
				# (le 7ème élément de la liste retournée par l'appel à getpwnam)
	:			# sinon
	$ENV{HOME}		# par le home directory de l'environemment courant
	}
	ex;			# permet l'exécution et le commentaire

Je ne suis pas sûr d'être très doué pour le commentaire mais j'espère que tu y verras plus clair. getpwnam prend comme argument un nom d'utilisateur et retourne une liste du type ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell, $expire). Pour plus de détail, vois getpwnam() (sous Perl 5.8.8 perldoc -f est muet au sujet de getpwnam, je ne sais paspourquoi).

PS Tu aurais dû poster dans Langage.