Discussion :

[alainbb]

Bonjour,

j'ai un objet

Code :

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

1
2
3
4
sub new {
    my $classe=shift;
    my $self={};
    ...

J'aimerais avoir une liste de couleur, style

Code :

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

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 :

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

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.

[djibril]

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

Oui on peut écrire en une ligne comme ceci :

Code :

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

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

ou

Code :

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

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

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

[Philou67430]

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

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

[djibril]

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

[alainbb]

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

Oui on peut écrire en une ligne comme ceci :

Code :

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

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

man perlref
lire le point 2...