Discussion :

[kururin]

Salut à tous,

C'est mon premier message sur ce forum... je suis super ému.
Donc voilà, je ne suis pas expert en Perl, mais j'ai un truc qui me semble bizarre dans le code suivant.
La fonction getChangelistDescribe doit retourner un tableau $describe. Lorsque j'affiche la 1ere valeur de ce tableau dans la fonction, j'obtiens bien une valeur cohérente:

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
sub getChangelistDescribe($$)
{
	my $self   = shift;
	my $chg_no = shift;
	
	return if (!defined($chg_no));
	
	my $p4 = $self->P4Connect();
	my $describe = $p4->Run("describe", $chg_no);	
	print STDOUT "DESCR == @{$describe}[0]";
	return 0 if (!$self->GetP4Errors($p4, "changelist"));	
	$p4->Disconnect();
		
	return $describe;
}

Mais lorsque je demande d'afficher ce que retourne cette fonction, je n'obtiens rien ("DESCRIBE === " s'affiche):

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
sub insertReleaseNotes($$$)
{
	my $self       = shift;    
	my $p4profile  = shift;
	my $changelist = shift;
   
	return if (!defined($p4profile) ||
			   !defined($changelist));

	foreach my $change (@{$changelist})
	{
		#For each changelist, get a description
	my $describe = $p4profile->getChangelistDescribe($change);

		my %infos;
		# If the description exists
		if (defined($describe))
		{
			print STDOUT "\n DESCRIBE === @{$describe}[0]";
...
...

Quelqu'un voit il une erreur là-dedans ?
Merci d'avance

K.

[Antoun]

oui : tu appelles getChangelistDescribe avec un seul argument, alors qu'elle est programmée pour sortir si elle n'a pas le second (change_no).

[kururin]

J'ai remarqué cela également mais la fonction getChangelistDescribe va bien jusqu'au bout car j'arrive à afficher :
print STDOUT "DESCR == @{$describe}[0]";

Si j'afficher la valeur de la variable $chg_no, j'obtiens bien la valeur attendue... Donc le fait de ne passer qu'un seul argument à cette fonction ne semble pas poser de probleme.
Comme je l'ai dit, je ne suis pas expert en Perl, mais il me semble qu'il n'est pas utile de préciser le $self lorsque l'on appelle une fonction, cela est fait implicitement. C'est pourquoi, lorsque j'appelle getChangelistDescribe, je ne passe qu'un seul argument.

Merci pour ta réponse en tout cas.
K.

[Antoun]

je ne connais pas tes histoires de $self... quant à ton DESCR ==, il apparaît au moins à deux endroits dans ton code, ce n'est donc pas un test suffisant. On va voir ce qui se passe vraiment :

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
sub getChangelistDescribe($$)
{
print "entrée dans getChangelistDescribe\n" ;
	my $self   = shift;
	my $chg_no = shift;
print "avec les arguments |$self| et |$chg_no|\n" ;	
	return if (!defined($chg_no));
print "chg_no est défini\n";	
	my $p4 = $self->P4Connect();
	my $describe = $p4->Run("describe", $chg_no);	
print "getChangelistDescribe : DESCR == @{$describe}[0] \n"; 
	return 0 if (!$self->GetP4Errors($p4, "changelist"));	
# c'est normal de sortir avant le Disconnect ?
	$p4->Disconnect();
print "résultat obtenu : |$describe|\n";			
	return $describe;
}

[kururin]

Je ne peux pas faire ces tests pour le moment (je les ferai lundi) mais j'ai déjà fait ce genre de test. Je referai le test mais je peux déjà te dire ce que j'obtiendrai, mis à part pour le $self car je ne sais ce qu'elle doit retourner exactement. En tout cas, pour les 2 derniers print, j'aurai ca:

"getChangelistDescribe : DESCR == commentaire au sujet de..." (j'obtiens ce que je veux.

ET

"résultat obtenu : |ARRAY(0xCFF023A2)|" (describe étant un tableau).

[Antoun]

je suppose que tu veux dire que $describe est une référence à un tableau ?

tu m'expliquerais ton histoire de $self ? (je n'ai encore jamais utilisé le prototypage des fonctions).

[MarneusCalgarXP]

$self n'a rien à voir avec le prototypage, c'est un paramètre automatique rajouté en début de @_ pour les modules objets.

Voir les explications ici :
Perl Boot (beginners object oriented tutorial) traduit par enstimac
Perl TooT (Tutoriel Orienté Objet de Tom) traduit par enstimac

[Antoun]

bon, je n'ai jamais non plus fait d'OO en Perl

en gros, ça implique que ce n'est pas exactement une fonction, mais plutôt une méthode d'un objet ? ce qui explique que Perl ne plante pas alors que le prototype n'est pas respecté ?

[Woufeil]

bon, je n'ai jamais non plus fait d'OO en Perl

en gros, ça implique que ce n'est pas exactement une fonction, mais plutôt une méthode d'un objet ? ce qui explique que Perl ne plante pas alors que le prototype n'est pas respecté ?

Le prototype est respecté ! Le paramètre est passé, implicitement certes mais il l'est !
Si tu veux plus de renseignement, regarde la FAQ ou mon cours sur le sujet.

Sinon, vous savez que perl est aussi un débugueur ? C'est plus simple que vos print dans tous les sens
Renseignez vous sur l'option -d de perl.

Sinon, tu peux nous dire ce que contientn le premier élement de @{$describe} ? Un tableau (ou plutôt une référence à un tableau) ?

[kururin]

En le tableau $describe doit normalement contenir un commentaire sur plusieurs lignes du genre:
" Change 5 by Kururin2@Mathieu1 on 2006/02/12 22:04:27
Correction d'un bug

Affected files: file1.txt
...
...
"

Donc lorsque j'affiche @{$describe}[0] dans la fonction getChangelistDescribe j'obtient bien la premiere ligne (Change 5.....).

Mais lorsque je veux afficher la meme chose en sortie de fonction, @{$describe}[0] est vide

J'avoue être un peu perdu...

Merci de votre aide

[Woufeil]

Si la première ligne de ton tableau @$describe est une chaîne de caractère (donc un scalaire), je ne comprend pas trop pourquoi tu écrits @{$describe}[0] ...
Ca ne serait pas plutôt $describe->[0] que tu veux afficher en réalité ?


Est-ce que tu compiles/exécutes avec l'option -w qui active les warnings ?

[kururin]

Je viens d'essayer avec $describe->[0], je n'obtiens pas plus de résultat malheureusement. Cette chaine est toujours vide

[Woufeil]

Essaye de rajouter use warnings; au début de ton code et dit nous ce que ça donne