Array dans un objet

Bonjour,

j'ai un objet

Code:

---

1 2 3 4

sub new { my $classe=shift; my $self={}; ...

---

J'aimerais avoir une liste de couleur, style

Code:

---

1 2	my @color=("purple","red"); $self->{COLOR}=\@color;

---

1er question, sait on écrire cela en une ligne ?

Mais si je veux rajouter une couleur (ou avoir accès au xième élément), je repasse chaque fois par ce @color

Code:

---

1 2 3

my @color=@{$self->{COLOR}}; push(@color,"blue"); self->{COLOR}=\@color;

---

Et deuxième question, écrire cela aussi en une ligne, sans passer par @color

Merci.

Pourquoi cette obstination à vouloir écrire le code en peu de lignes :aie:. Ce n'est pas toujours un symbole de clarté ;) !

Oui on peut écrire en une ligne comme ceci :

Code:

---

$self->{COLOR} = ["purple","red"];

---

ou

Code:

---

$self->{COLOR} = [ qw/ purple red / ];

---

et pour le rajout d'éléments
push @{ $self->{COLOR} }, 'blue';

Citation:

---

Envoyé par djibril

Pourquoi cette obstination à vouloir écrire le code en peu de lignes :aie:. Ce n'est pas toujours un symbole de clarté ;)

---

En l’occurrence ici, c'est nettement plus clair ;)

Citation:

---

Envoyé par Philou67430

En l’occurrence ici, c'est nettement plus clair ;)

---

:aie:

de lire le man quand on sait ce qu'on cherche...

Citation:

---

Envoyé par djibril

Oui on peut écrire en une ligne comme ceci :

Code:

---

$self->{COLOR} = ["purple","red"];

---

---

man perlref
lire le point 2...