[Perl] Traitement sur un array à partir de la référence de celui-ci

Marsh Posté le 11-03-2004 à 18:23:21

Je tente d'accéder à un array dont j'ai placé la référence dans un hash. Je suis capable de récupérer un élément bien précis, mais incapable d'effectuer un traitement sur l'array lui même (un grep en l'occurence.

Merci

Code :

sub httpd::conf {
my $self = { file => undef,
lines => undef,
@_
};
my @lines;
open (FENT, $self->{"file"});
while (<FENT> ) {
$_ =~ s/\n//g;
if ((grep ! /^#/, $_) && (grep ! /^$/, $_)) {
push (@lines, $_);
}
}
close FENT;
$self->{"lines"} = \@lines;
bless($self, "httpd::conf" );
}
sub httpd::conf::as_SSLEngine {
my $self = shift;
my @SSLEngine_line = grep /^SSLEngine /, $self->{"lines"};
if (@SSLEngine_line) {
return 1;
}
}

Marsh Posté le 11-03-2004 à 18:23:21

Marsh Posté le 11-03-2004 à 18:37:16

la solution semble être ceci:

@{$self->{"lines"}}

Marsh Posté le 12-03-2004 à 12:20:10

Burgergold a écrit :

la solution semble être ceci:

@{$self->{"lines"}}

A priori oui, tu es dans un contexte de liste

Dans ta 1ère fonction, tu fais ceci :

Code :

$self->{"lines"} = \@lines;

Ca doit pouvoir revenir à la même chose qu'en faisant ceci :

Code :

@{$self->{"lines"}} = @lines;

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Marsh Posté le 14-03-2004 à 01:38:43

C'est pas vraiment un question de contexte : $self->{"lines"} est une référence à un array et le @{} permet de le « dereférencer », point.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *