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 :
 

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

 
Le pire c'est que ça n'affiche même pas "clé".
 
Avez vous une idée de l'erreur dans le code ?
 
Merci

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

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

 
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)

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 :

#!/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 :

$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 :

$CONF->{ 'Machine1' }

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

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

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

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.

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"

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

 
   
A+,