Forum Programmation.perl afficher table de hachage

• # Sur le pouce.

  Posté par aurel le 27 février 2006 à 15:51. Évalué à 3.

  

  foreach $key (sort keys %myhash) {
  $val = $myhash{$key};
  print "Key $key has value $val\n";
  }

  • [^] # Re: Sur le pouce.

    Posté par kowalsky le 27 février 2006 à 16:10. Évalué à 2.

    

    donc dans mon cas:
    
    foreach $key (sort keys %response) {
    $val = $myhash{$key};
    print "Key $key has value $val\n";
    }
    
    Mais il ne me retourne rien...
    
    Comment obtenir $key
    
    
    je sais que c'est des questions stupide, mais je suis bloqué...!!!

    • [^] # Re: Sur le pouce.

      Posté par aurel le 27 février 2006 à 16:16. Évalué à 2.

      

      Je ne vois pas d'où vient le problème. Tu es sûr que ton hash n'est pas vide ?

    • [^] # Re: Sur le pouce.

      Posté par kesako le 27 février 2006 à 16:45. Évalué à 2.

      

      $val = %reponse->{$key};

• # Data::Dumper

  Posté par kesako le 27 février 2006 à 16:43. Évalué à 4.

  

  Pour avoir une idee rapide :
  
  require Data::Dumper;
  
  my %hash;
  
  %hash ->{toto} = 'tata';
  
  print Data::Dumper->Dump([\%hash],['*hash']);

  • [^] # Re: Data::Dumper

    Posté par kowalsky le 28 février 2006 à 11:49. Évalué à 2.

    

    bon, je n'y comprend plus rien...! :)
    
    print Data::Dumper->Dump([\%$response],['*response']); me retounre:
    
    
    %response = (
    '1.3.6.1.2.1.31.1.1.1.18.25' => 'raptor',
    '1.3.6.1.2.1.31.1.1.1.18.11' => 'pouet',
    '1.3.6.1.2.1.31.1.1.1.18.18' => 'deck',
    '1.3.6.1.2.1.31.1.1.1.18.3' => 'pepo',
    '1.3.6.1.2.1.31.1.1.1.18.8' => 'dino',
    '1.3.6.1.2.1.31.1.1.1.18.9' => ' tintin',
    etc...
    );
    
    mais:
    
    foreach $key (sort keys %response) {
    $val = $response{$key};
    print "Key $key has value $val\n";
    }
    
    ne me retourne rien...
    
    d'ailleurs:
    
    print $response{"1.3.6.1.2.1.31.1.1.1.18.25"};
    print $response{1.3.6.1.2.1.31.1.1.1.18.25};
    
    est-ce à cause des points dans la clefs...?

    • [^] # Re: Data::Dumper

      Posté par kesako le 01 mars 2006 à 14:20. Évalué à 1.

      

      pas
      $val = $response{$key};
      
      mais
      
      $val = %response->{$key};
      
      
      $reponse c'est une autre variable

Suivre le flux des commentaires

Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.