[PERL] Tableau de hash

Marsh Posté le 04-06-2009 à 17:53:34

Bonjour,

Voilà j'ai une liste du genre

Bloc1;Machine1
Bloc2;Machine1
;Machine3
Bloc3;Machine2
Bloc3;Machine2
;Machine1

Ce que j'aimerai faire en perl, c'est me sortir la liste des bloc par machine.

J'ai essayé un truc tout bête, et pour une fois de faire ça propre :

Code :

#!/usr/bin/perl
open(F, "machines.csv" );
my %m = {};
while (<F> ) {
chomp();
my @ligne = split(";" );
my $line1 = @ligne[1];
my $line0 = @ligne[0];
if ($m{$line1}) {
$m{$line1} .= $line0;
} else {
$m{$line1} = $line0;
}
}
close(F);
foreach my $k (keys(%m))
{
print "clef=$k valeur=$m{$k}\n";
}

Et pourtant ça fonctionne pas, le résultat donne un truc du genre :

Code :

valeur= 46
valeur=DSI
valeur=BA03
valeur=DSI
valeur=BA07
valeur=BA04
valeur=BA02BA02BA02BA01
valeur=BA11BA08BA11BA07BA09BA09BA01DOSSI

Le pire c'est que ça n'affiche même pas "clé".

Avez vous une idée de l'erreur dans le code ?

Merci

Reply

Marsh Posté le 04-06-2009 à 17:53:34

Reply

Marsh Posté le 04-06-2009 à 17:55:52

@ligne[1] => $ligne[1]

Reply

Marsh Posté le 04-06-2009 à 18:43:00

J'affiche @ligne[1] ça ne pose aucun problème..
De plus quand je passe par $ligne[1]

Donc

Code :

my $ligne = split(";" );
if ($m{$ligne[1]}) {
$m{$ligne[1]} .= $ligne[0];
} else {
$m{$ligne[1]} = $ligne[0];
}
}

J'ai pas plus de succès (enfin à vérifier quand même je peux pas là, mais je faisais comme ça au départ)

Reply

Marsh Posté le 04-06-2009 à 20:50:21

c'est marrant moi j'ai compris que tu veux un hash de tableaux
si c'est bien un hash de tableaux je te propose ca :

Code :

#!/usr/bin/perl
 
use Data::Dumper;
 
open INPUT, "input.txt";
my @all_lines = <INPUT>;
close INPUT;
 
my $CONF = { };
foreach $line (@all_lines)
{
        chomp($temp = $line);
        my @splitted = split (";", $temp);
        push (@{$CONF->{@splitted[1]}}, @splitted[0]);
}
 
print Dumper $CONF;

ca te donne un résultat comme ceci :

Code :

$VAR1 = {
          'Machine3' => [
                          ''
                        ],
          'Machine2' => [
                          'Bloc3',
                          'Bloc3'
                        ],
          'Machine1' => [
                          'Bloc1',
                          'Bloc2',
                          ''
                        ]
        };

perso pour travailler sur des hash et des listes, je préfère utiliser les références, plus efficace mais surtout beaucoup plus lisible
Pour accéder au tableau de la clé "Machine1" tu fais :

Code :

$CONF->{ 'Machine1' }

Pour accéder au 1er élément du tableau de la clé "Machine1" tu fais :

Code :

$CONF->{ 'Machine1' }->[0]

Reply

Marsh Posté le 05-06-2009 à 10:22:44

Merci beaucoup pour ton aide, ça fonctionne.

J'aurai bien aimé connaître le problème dans mon code toutefois, mais ta solution me permet de bosser

Et merci aussi pour les conseils, j'en prend bonne note

Reply

Marsh Posté le 05-06-2009 à 11:26:10

Bon j'ai compris mon erreur, un bon truc de novice

En fait j'importais mon CSV depuis Windows, donc il restait des "control M" en trop.
Je les ai supprimé du fichier et là je peux faire fonctionner mon code.

Je pensais que chomp() supprimait cela justement.

Reply

Marsh Posté le 05-06-2009 à 11:45:15

chomp() ne supprimer pas le ^M mais une regex te permet de le faire

astuce : pour écrire le ^M avec un éditeur sous unix, tu fais "CTRL+V" puis "CTRL+M"

Reply

Marsh Posté le 10-06-2009 à 14:52:45

Sinon, il y a aussi ce qui suit, mais bon :whistle: