Bonjour,
 
J'ai commencé perl il y a peu et j'ai un soucis sur un programme que j'ai à faire :
 
J'ai 3 tableaux que j'ai crée via la commande open qui contient chacun 2 colonnes.
Ces tableaux sont le résultat de commande sql (select) d'une base de données
 

 
La colonne 1 du tableau 1 est equivalente à la colonne 1 du tableau 2 et la colonne 2 du tableau 2 est équivalente à la colonne 1 du tableau 3.
Donc suivant ces liaisons, je dois lister les tableaux afin d'avoir pour chaque employee_id (de la colonne 1 du tableau 1) son location_code.
 
Puis une fois que j'ai, pour chaque employee_id, sonc location_code je dois transferer la colonne asset_tag et le location_code correspondant.
Je pensais effectuer une boucle mais malheureusement je ne vois pas comment faire, si quelqu'un a une idée je suis preneur.
 
Merci

Faudrais expliquer un peu plus en détail ce que vous voulez obtenir, parce que "transférer" c'est vague.
A+,

Oui c'est vrai après re-lecture que cela est vague    
 
Voici une nouvelle explication de ce que je souhaite (à froid lol), plus claire je l'espère, car c'est vrai que je n'etais pas très clair sur ce que je voulais :
 
J'ai, donc, 3 tableaux (que j'ai crée):

 
Je voudrai donc faire une boucle permettant de lire ces tableaux et d'envoyer mon résultat dans un fichier csv (avec 1 colonne location_code et l'autre colonne asset_tag) pour avoir le résultat suivant :

 
Donc, pour chaque employee_id du tab1 je dois recuperer son location_id du tab2 pour avoir le location_code du tab3 et lier dans un fichier csv le location_code avec les asset_tag (afin d'avoir la localisation du matériel en rapport à la localisation de son utilisateur).
 
J'espère que mes explications sont plus clair.
 
Merci.

A toi d'adapter ce genre de chose:

#!/usr/bin/perl
use v5.10.1;
# code propre
use strict;
use warnings;
use autodie;
 
use Data::Dumper; #utile uniquement pour la mise au point
 
my ($input1, $input2, $input3) = ('herisstab1.txt', 'herisstab2.txt', 'herisstab3.txt');
my ($fh);
my (%loc, %info);
 
open $fh, "< $input3";
while (<$fh> ) {
  next if $. == 1; # On saute la ligne de titre
  if (/^(\S+)\s+(\S+)\s*$/) {
    $loc{$1} = $2;
  }
}
close($fh);
 
open $fh, "< $input1";
while (<$fh> ) {
  next if $. == 1; # On saute la ligne de titre
  if (/^(\S+)\s+(\S+)\s*$/) {
    $info{$1}{'ordi'} = $2;
  }
}
close($fh);
 
open $fh, "< $input2";
while (<$fh> ) {
  next if $. == 1; # On saute la ligne de titre
  if (/^(\S+)\s+(\S+)\s*$/) {
    if (defined $info{$1}) {
      if (defined $loc{$2}) {
        $info{$1}{'location'} = $loc{$2};
      }
    }
  }
}
close($fh);
 
# a partir d'ici, tout est dans %info
# faire print Dumper(%info); pour en voir le contenu
# a toi de l'exploiter comme cela te convient
# un exemple possible:
 
 
my @result;
push @result, "location_code\tasset_tag\n";
foreach (sort(keys %info)) {
  my $line =  $info{$_}{'location'}."\t".$info{$_}{'ordi'}."\n";
  push @result, $line;
}
# @result = sort(@result); # si tu veux trier par ville, auquel cas le foreach (sort(keys %info)) peut être remplacé par un simple foreach (keys %info)
print @result;

Sur tes 3 fichiers nommés herisstab1.txt, herisstab2.txt, herisstab3.txt, j'obtiens en sortie:

 
A+,