Discussion :

[frenchlion]

bonjour,

j'ai un petit soucis,

j'ai le contenu d'une sous valeur d'un hash : $destination->{file}

qui vaut (si je fais un print Dumper($destination->{file})

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
$VAR1 = {
          'c.txt' => {
                       'remotefolder' => '/tmp/test3'
                     },
          'a.txt' => {
                       'remotefolder' => '/tmp/test1'
                     },
          'b.txt' => {
                       'remotefolder' => '/tmp/test2'
                     }
        };

comment puis-je faire un loop qui lit pour chaque "file" (a.txt, b.txt) le remotefolder ? (et le file, j'ai besoin d'utiliser les deux variables pour faire des actions)

j'ai testé pas mal de choses mais pas encore trouvé comment faire le truc

merci à vous

amicalement

[djibril]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
foreach my $nom_fichier ( keys %{ $destination->{file} } ) {
	print $destination->{file}{$nom_fichier}{remotefolder},"\n";
}

[frenchlion]

excellent merci beaucoup je test de suite,
j'avais testé avec $destination->{file}->{$nom_fichier}->{remotefolder}
mais ça ne fonctionait pas

[frenchlion]

merci ça marche au poil

maintenant je dois trouver comment le faire fonctionner lorsqu'il n'y a qu'une seule entrée.

avec un seul fichier, le hash ressemble à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
$VAR1 = {
          'remotefolder' => '/tmp/test1',
          'name' => 'a.txt'
        };

et du coup la boucle ne fonctionne pas

(en fait ça vient d'un XML avec des entrées du genre) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
<file name="a.txt" remotepath="/toto"/>
<file name="b.txt" remotepath="/toto"/>

[djibril]

Analyse ton XML avec XML::Twig au lieu de XML::Simple !

[frenchlion]

erf j'aimerais bien mais je devrais refaire tout mon code qui est assez gros maintenant

j'ai trouvé une solution avec un simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
if (!defined($destination->{file}->{name})) {
  # plusieurs entrées
  foreach my $ftpfilename ( keys %{ $destination->{file} } ) {
     print $destination->{file}{$ftpfilename}{remotefolder}, "\n";
  }
} else {
  # une seule entrée
  print $destination->{file}->{remotefolder}, "\n";
}