Comment résoudre le problème de hachage du tableau

Question

my %geo_location_map = (
          US => [ 'US', 'CA' ], 
          EU => [ 'GB', 'ES' ], 

          ); 
    $location= "US" ; 
    my $goahead = 0; 

    if (exists $geo_location_map{US}) { 
    print "exists"; 
     my @glocation = $geo_location_map{US}; 

    foreach @glocation { 
     if ($_ eq "$location"} { $goahead=1; last;} 
     } 
    } 

J'ai essayé sa ne fonctionne pas

Answer 1

$geo_location_map{US} contient une référence de tableau; si vous voulez copier le tableau à @glocation vous devez déréférencer:

my @glocation = @{$geo_location_map{US}}; 

Answer 2

Tout d'abord, toujours « use strict » dans vos scripts. Vous avez eu plusieurs erreurs. voir:

my %geo_location_map = (
    US => [ 'US', 'CA' ], 
    EU => [ 'GB', 'ES' ], 
); 
my $location= "US" ; 
my $goahead = 0; 

if (exists $geo_location_map{US}) { 
    print "exists"; 
    my @glocation = $geo_location_map{US}; 

    foreach (@glocation) { 

     if ($_->[0] eq "$location") { 
      print "ahead\n"; 
         $goahead=1; 
      last; 
     } 
    } 
} 

Comme l'a dit Jim Davis, vous avez eu référence à un tableau ann. En outre, quelques erreurs de support, pas de problème