Discussion :

[foolib]

Boujour/bonsoir,

j'ai besoin d'un petit éclaircissement dans une 'methode' de class :
Soit le package 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
package Person;
 
use warnings;
use strict;
 
sub new{
	my $class = shift;
	my $self = {@_};
	bless ($self, $class);
	return $self;
}
 
sub adress { $_[0]->{adress}=$_[1] ifdefined $_[1]; $_[0]->{adress} }
 
1;

Je sais que le premier paramètre passé à une méthode d'instance est la référence vers l'objet ( hash interne en l'occurence ).

Dans la methode "adress" sensée servir de getter/setter, que désigne $_ ?

S'agit il d'une référence sur l'Array correspondant aux paramètres ? En réalité je ne saisi pas la notation. Pourquoi n'est-ce pas @_ qui est employé ?

Merci d'avance

[Norore]

Bonsoir.

En fait la variable $_ représente la valeur courante. Pour le @_ il s'agit du tableau courant.
Donc, en fin de compte, lorsque l'on voit $_[0], il s'agit de la première case du tableau courant qui est passé en paramètre de la méthode 'adress' !

Est-ce plus clair ?

[foolib]

Quand j'éxécute la méthode...
j'obtiens
Bareword found where operator expected at Person.pm line 23, near "] ifdefined"
(Missing operator before ifdefined?)
syntax error at Person.pm line 23, near "] ifdefined "
Compilation failed in require at test.pl line 13.
BEGIN failed--compilation aborted at test.pl line 13.

[Dimitry.e]

Code :

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

1
2
 
if defined $_[1];

[foolib]

Code :

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

1
2
 
if defined $_[1];

Dans la série j'ai pas les yeux en face des trous ... :p

[djibril]

Pourquoi ne pas écrire un code perl propre et surtout lisible en choisissant des noms de variables claires et simples.
C'est bien de vouloir écrire du code en peu de lignes, mais on perd toujours en temps de maintenance, de lisibilité et d'efficacité.