Perl Références de Tableau et éviter le Type d'arg 1 à clés doivent être hash” erreur
J'ai un scalaire $subscribers
qui pourrait être le fnud, la référence à un HACHAGE ou d'une référence à un TABLEAU. J'ai attribué les valeurs de l'échantillon $VAR1
, $VAR2
et $VAR3
pour les tests.
Je suis seulement intéressé dans $subscribers
quand il s'agit d'une référence à un TABLEAU, où par il devrait contenir plusieurs valeurs. Dans d'autres cas, je ne suis pas intéressé à l'impression de quelque chose (par exemple, lorsque $subscribers=$VAR2;
Le code semble fonctionner bien sous Perl v5.16.2; cependant, quand je la déplace vers la machine cible exécutant Perl v5.8.8, j'obtiens une erreur de compilation:
% ./test.pl
Type of arg 1 to keys must be hash (not private variable) at ./test.pl line 23, near "$subscribers) "
Execution of ./test.pl aborted due to compilation errors.
Code ci-dessous:
#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
my $VAR1 = undef;
my $VAR2 = {'msisdn' => '1234'};
my $VAR3 = [
{'msisdn' => '1111'},
{'msisdn' => '2222'},
{'msisdn' => '3333'},
{'msisdn' => '4444'},
{'msisdn' => '5555'}
];
my @childMsisdn = ();
my $subscribers = $VAR3;
if (ref $subscribers eq ref []) { # Exclude $VAR1 && $VAR2 scenarios
foreach my $s (keys $subscribers) {
my $msisdn = $subscribers->[$s]->{"msisdn"};
push (@childMsisdn, $msisdn);
}
}
print "childMsisdn = ". join(",", @childMsisdn) ."\n";
ref $subscribers eq ref []
est la même que ref $subscribers eq "ARRAY"
OriginalL'auteur h q | 2013-12-29
Vous devez vous connecter pour publier un commentaire.
Remplacer
avec
ou
De perldoc
OriginalL'auteur Сухой27