transformer un fichier CSV en Perl

Et qu'est-ce que tu n'arrives pas à faire? Il ne paraît pas bien difficile de faire les modifications voulues. Tu as essayé?

Ce forum n'est pas un service gratuit d'écriture de code. Nous cherchons à aider les gens à progresser, mais nous attendons aussi qu'ils fassent des efforts de leur côté.

Montre nous comment tu essaies de modifier le programme existant et explique où tu rencontres des difficultés, et nous t'aiderons avec plaisir.

Bien sûr lolo78 que j'essaye et si je reviens vert vous c'est juste pour progresser et avoir des nouvelles idées et je vous remercie pour cela.
Depuis vos premier réponse j'ai essayer plusieurs combinaison car il y'en a plusieurs
Dans toute notre discussion je partagés mon code... :mrgreen:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

open(my $fh, '<', $file) or die "Could not open '$file' $!\n";   my ($start, $end, $srv, $proc, $data); my %h;   for (<$fh>) { chomp; ($start, $end, $srv, $proc, $data) = split ';';   if ($start le $datev){ $start = "$datev 00:00"; } if ($end eq "-- :"){ $end = "$datev 23:59"; } $h{$srv}{$proc}{$data}= [] unless exists $h{$srv}{$proc}{$data}; push $h{$srv}{$proc}{$data}, [$start, $end]; }   close($fh);   my $day = (split ' ', $start)[0]; my $dt; my @dt_spn; my ($hours, $minutes); my $dt_format = "%s %02d:%02d";   for (my $m = 0; $m < 1440; $m += 5) {   $minutes = $m%60; $hours = $m/60; @dt_spn = ( sprintf($dt_format, $datev, $hours, $minutes), sprintf($dt_format, $datev, $hours, $minutes + 4) );   for $srv (sort keys %h) { for $proc (sort keys $h{$srv}) { say join ';', ($dt_spn[0],'300', $data, $srv, $proc, is_running(\@dt_spn, $h{$srv}{$proc}{$data}));   } } }   sub is_running {   my ($dt_spn, $spns) = @_; for my $span (@$spns) {   return 1 if ($dt_spn->[0] le $span->[1] and $dt_spn->[1] ge $span->[0]); } return 0; }

---

En gros j'ai essayé d'ajouter {$data} avec le couple {$srv}{$proc} mais le résultat m'affiche que DATA1 d'ajouter {$data} avec le couple {$srv}{$proc} mais le résultat ne m'affiche que DATA1..

Si tu ne parcours pas les clefs du nouveau niveau d'imbrication du, dorénavant, hash de hashes de hashes, $data conservera la dernière valeur lue dans ton fichier.

Code:

---

1 2 3 4 5 6 7

for $srv (sort keys %h) { for $proc (sort keys $h{$srv}) { for $data (keys $h{$srv}{$proc}) { say join ';', ($dt_spn[0],'300', $data, $srv, $proc, is_running(\@dt_spn, $h{$srv}{$proc}{$data})); } } }

---

Merci CosmoKnacki

Du coup dès qu'on ajoute un autre paramétré ont doit ajouter une autre boucle ..exp "appli"

Code:

---

1 2 3 4 5

for $srv (sort keys %h) { for $proc (sort keys $h{$srv}) { for $data (keys $h{$srv}{$proc}){ for $appli (keys $h{$srv}{$proc}{$data })

---

En tout cas merci beaucoup pour cette discussion très intéressante et très instructive qui m'a permis de découvrir Perl :mrgreen:

J'espère vous revoir dans des autres sujets


Merci :zoubi:

Citation:

---

Envoyé par mckgh

Merci CosmoKnacki

Du coup dès qu'on ajoute un autre paramétré ont doit ajouter une autre boucle ..exp "appli"

Code:

---

1 2 3 4

for $srv (sort keys %h) { for $proc (sort keys $h{$srv}) { for $data (keys $h{$srv}{$proc}){ for $appli (keys $h{$srv}{$proc}{$data })

---

---

Oui c'est l'idée. Maintenant si tu veux éviter d'avoir trop de boucles imbriquées, tu peux par exemple composer dynamiquement une des clefs avec plusieurs champs et ainsi limiter ton hash à 3 niveaux: $h{$srv}{$proc}{$bidule} où $bidule serait: join ';', ($data, $appli, $machin, $truc, ...)

Citation:

---

Envoyé par CosmoKnacki

Oui c'est l'idée. Maintenant si tu veux éviter d'avoir trop de boucles imbriquées, tu peux par exemple composer dynamiquement une des clefs avec plusieurs champs et ainsi limiter ton hash à 3 niveaux: $h{$srv}{$proc}{$bidule} où $bidule serait: join ';', ($data, $appli, $machin, $truc, ...)

---

Entendu :mrgreen:

Merci beaucoup :zoubi: je vais tester tout de suite :)