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++;
} |
