Perl

parcourir un hash de hash

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : parcourir un hash de hash

isanaud

J'obtiens cette erreur à l'exécution du script ci dessous

Quelle esst l'erreur dans le parcours du hash imbriqué ?

Reference found where even-sized list expected at ./test.pl line 20.
Use of uninitialized value $dossier in concatenation (.) or string at ./test.pl line 40.
Use of uninitialized value $dossier in concatenation (.) or string at ./test.pl line 41.
Use of uninitialized value $dossier in concatenation (.) or string at ./test.pl line 42.
Use of uninitialized value $specialite in concatenation (.) or string at ./test.pl line 42.
Use of uninitialized value $annee in concatenation (.) or string at ./test.pl line 42.
traitement do dossier pour la specialite et l'annee

Code :

#!/usr/bin/perl
use strict;
use warnings;
use File::Glob ':globally';
use File::Basename;
use File::stat;
use XML::LibXML;
use utf8;
use MIME::Lite;
my $dossier;
my $repTraitement;
my $repTraite;
my $specialite;
my $annee;
my $repPrincipal = "/export/share/current/TEST-STAGE-ESIR/";
my %lescursus = {Informatique1 => {
dossier => "Informatique-1",
specialite => "Informatique",
annee => "Esir1" },
Materiaux2 => {
dossier => "Materiaux-2",
specialite => "Materiaux",
annee => "Esir2" },
TNR3 => {
dossier => "TNR-3",
specialite => "TNR",
annee => "Esir3"}
};
foreach my $cursus(keys(%lescursus)) {
$dossier=$lescursus{$cursus}{'dossier'};
$specialite=$lescursus{$cursus}{'specialite'};
$annee=$lescursus{$cursus}{'annee'};
$repTraitement= $repPrincipal."/".$dossier."/A_TRAITER/";
$repTraite= $repPrincipal."/".$dossier;
print "traitement do dossier $dossier pour la specialité $specialite et l\'annee $annee\n";
#$identifiantDocument = obtenirListeFichiers($repTraitement, $identifiantDocument);
}

Publicité

rat de combat

attention rongeur méchant!

Bonjour,

Tiens, y a encore des gens qui vont du Perl5...

Tu devrais lire les messages d'erreurs / warnings depuis le début:
>Reference found where even-sized list expected at test.pl line 15.

En effet, il faut mettre des parenthèses, pas des accolades. Un hash s'initialise avec une liste.

>my %lescursus = ( Informatique1 => {...}, ... )

Message édité par rat de combat le 09-07-2021 à 19:39:18

isanaud

ca marche, merci beaucoup :jap:

FORUM HardWare.fr

Programmation

Perl

parcourir un hash de hash

Sujets relatifs
résolu	Supprimer derniere ligne d'un fichier SANS le parcourir
une erreur l'array , hash-tableau	création d'un bouton parcourir
création d'un bouton parcourir	Parcourir une liste avec iterator
construire un hash pour chaque ligne	Mail avec piece jointe fontion parcourir
parcourir tableau via une url	fonction parcourir des dossiers
Plus de sujets relatifs à : parcourir un hash de hash

Page générée en 0.048 secondes