Discussion :

[LE NEINDRE]

Bonjour à tous,
Voilà j'ai un fichier séparé par des ;

il a cette structure:

Code :

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

1
2
3
4
5
 
val11;val12;val13;val14;val15
val21;val22;val23;val24;val25
val31;val32;val33;val34;val35
val41;val42;val43;val44;val45

Je voudrais le mettre dans un tableau à 2 dimension dont 1 dimension sera indicée

j'ai donc fait le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
$file='d:\load.csv';
@Champs=qw/arg1 arg2 arg3 arg4 arg5/;
 
%newtab;
open (file,$file) or die $!;
@tab=<file>;
close(file);
 
@newtab{@Champs}=map{split(/;/,$_)}@tab;
 
 
foreach my $keys (keys %newtab)
{
print "$keys:$newtab{$keys}[0]\n";
}

J'arrive bien à afficher les clés de mon hachage.
Mais j'arrive pas à afficher les valeur (ie pour la première ligne: $newtab{$keys}[0])

Pouvez vous m'aider s'il vous plait ???

Merci pour vos réponses.
Bonne fin d'après midi.

[chostrama]

(Encore moi!)

Ton map ne peut pas marcher comme ça. map retourne toujours une liste, alors que dans ton code tu lui "demandes" de te fournir un hash.

[LE NEINDRE]

ah mince.
alors comment faire ??

Si je fais :

Code :

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

1
2
 
@{$newtab[$i]}=map{split(/;/,$_);$i++}@tab;

C'est pareil alors ???

[LE NEINDRE]

Bon alors finalement j'ai abandonné map
et j'ai fait une boucle.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!/c:\perl\bin\perl.exe
 
$file='d:\load.csv';
@Champs=qw/SALES_ORGANISATION BUYING_GROUP BUYING_GROUP_NAME BILL_TO SOLD_TO SHIP_TO SHIP_TO_NAME ZIP_CODE TOWN CUSTOMER_NETWORK_ID TYPE_CODE CUSTOMER_IDENTIFIER INBOUND_ORDER INBOUND_REMADV INBOUND_DEBADV OUTBOUND_ORDSP OUTBOUND_DESADV OUTBOUND_INVOICE COMMENTAIRE SALES_CUSTOMER_NETWORK_ID SALES_CUSTOMER_IDENTIFIER SALES_SGA_NETWORK_ID SALES_MANUAL_ORDER_ACK EDI_OUTPUT_ORDER EDI_OUTPUT_DESADV EDI_OUTPUT_INVOICE/;
 
#%newtab=@Champs;
open (file,$file) or die $!;
@tab=<file>;
close(file);
for(my $i=0;$i<=$#tab;$i++)
{
      @{$newtab[$i]}{@Champs}=split(/;/,$tab[$i]);
}
foreach (@newtab)
{
      foreach my $keys (keys %{$newtab[$i]})
      {
      print "$newtab[$i]{$keys}";
      }
      print "\n";
$i++;
}

Je mets le tag résolu mais sans grande conviction sur ce post...

Bonne soirée, je rentre au bercaille !!!

[Jedai]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
$file='d:\load.csv';
@Champs=qw/arg1 arg2 arg3 arg4 arg5/;
 
%newtab;
open (file,$file) or die $!;
@tab=<file>;
close(file);
 
my @newtab =map{my %temp; @temp{@Champs} = (split(/;/,$_); \%temp}@tab;
 
 
foreach my $keys ( @Champs )
{
print "$keys:$newtab[0]{$keys}\n";
}

--
Jedaï

[chostrama]

Jedaï : j''avais l'impression que l'OP voulait un HoA... mais j'aime bien ta solution.

[Jedai]

Tu remarqueras que dans sa dernière solution, il a plutôt utilisé un AoH, les deux interfaces sont de toute façon complètement interchangeables dans son cas.

--
Jedaï

[LE NEINDRE]

Qu'est ce que OP et HoA
Quel est le mieux ??

[2Eurocents]

Il me semble que :
OP -> Original Poster (Posteur initial - toi, LE NEINDRE)
HoA -> Hash of Arrays (Hachage de Listes/Tableaux)
AoH -> Array of Hashes (Liste/Tableau de Hachages)

Quant à savoir ce qui est le mieux entre HoA et AoH, ça dépend de toi ... de ce que tu veux faire. Quelle est la structure qui correspond le mieux à ton besoin ? As tu réellement besoin d'une telle structure, etc.

Bonne continuation.

[LE NEINDRE]

Ok merci pour les clarifications !!!
Y'aurait presque un glossaire à monter là !!!

Bonne matinée