Discussion :

[ManusDei]

Bonjour,

j'ai un petit problème sur un script Perl que je dois modifier car les fichiers d'entrée ont changé (le script original n'est pas de moi).
Je construis une table de hachage à partir de données présentes dans deux fichiers, et pas toutes au même endroit.
J'ai choisi comme clef de ma table de hachage le nom de la trame, ça me simplifie les recherches du deuxième foreach.
Sauf que pour une information je dois parser et chercher non pas le nom de la trame mais son numéro dans @files1 (pour remplir le champ TramePer).

Je cherche une solution élégante pour parser le fichier un minimum de fois et éviter l'usine à gaz.
Je connais assez peu perl et les tables de hachage, est-ce qu'il est possible d'avoir 2 clés pour un élément de table de hachage ?
Une solution simple que j'ai en tête serait de créer une deuxième table de hachage avec juste la paire nom et numéro, mais est-ce que je ne dupliquerai pas l'info pour rien ?

PS : le nom comme le numéro de trame sont uniques.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
sub my_parser {
	my @files1 = @{$_[0]};
	my @files2 = @{$_[1]};
	my $buf_found = "UNDEF";
	foreach (@files1) {
 
		open(ReadHandler, $_) or die ("Erreur d'ouverture du files1 $_") ;
		while (<ReadHandler>) {
			if (/BO_ (\d+) ([0-9a-zA-Z_]+): (\d) /)
			{
				my $buf_var = $2;
				$buf_dico{$buf_var} = {TrameArch => "UNDEF",
								TrameChn => "UNDEF",
								TrameNum => $1,
								TrameAdr => "UNDEF",
								TrameBuf => "UNDEF",
								TrameDir => "UNDEF",
								TrameSize => $3,
								TramePer => "UNDEF"};
			}
		}
		close(ReadHandler);
	}
	foreach (@files2) {
		my $var_data;
		open(ReadHandler, $_) or die ("Erreur d'ouverture du files2 $_") ;
 
		while (<ReadHandler>) {
			if (/begin\sMEASUREMENT\s(\w+)_(lb|c1a)\[0\]$/) {
				$var_data = $1;
				my $arch = $2;
				if (defined($buf_dico{$var_data})) {
					$buf_dico{$var_data}{TrameArch} = $arch;
					$buf_dico{$var_data}{TrameBuf} = "$var_data\_$arch";
				} else {
				$var_data = "UNDEF";
				}
			}
			if ($var_data ne "UNDEF") {
				if (/ECU_ADDRESS\s0x(\w+)$/) {
					$buf_dico{$var_data}{TrameAdr} = $1;
					$var_data = "UNDEF";
				}
			}
		}
		close(ReadHandler);
	}
	print Dumper (\%buf_dico);
}

Merci

[Lolo78]

Bonjour,

pour moi, le plus simple est bien de créer une deuxième table de hachage faisant le lien entre nom et numéro de trame.

Je n'ai pas bien compris le détail de tes données, il est peut-être possible de stocker l'information voulue dans la même table de hachage, mais il est probable que ça compliquerait inutilement tes recherches.

[ManusDei]

Bon ben merci, j'ai fait avec une deuxième table de hachage donc, je multiplie un peu l'info mais vu que je manipule un nombre limité de data c'est pas bien grave.

[Philou67430]

Pour limiter l'espace mémoire pris et le parcours du fichier file1, tu peux créer ta deuxième table en même temps que la première et en utilisant la même référence pour la valeur :

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
 
	foreach (@files1) {
 
		open(ReadHandler, $_) or die ("Erreur d'ouverture du files1 $_") ;
		while (<ReadHandler>) {
			if (my ($TrameNum, $TrameName, $TrameSize) = /BO_ (\d+) ([0-9a-zA-Z_]+): (\d) /)
			{
				$buf_dico{$TrameName} = {TrameArch => "UNDEF",
								         TrameChn => "UNDEF",
								         TrameNum => $TrameNum,
								         TrameAdr => "UNDEF",
								         TrameBuf => "UNDEF",
								         TrameDir => "UNDEF",
								         TrameSize => $TrameSize,
								         TramePer => "UNDEF"};
                                $buf_dico_by_num{$TrameNum} = $bug_dico{$TrameName};
			}
		}
		close(ReadHandler);
	}

[ManusDei]

Pour limiter l'espace mémoire pris et le parcours du fichier file1, tu peux créer ta deuxième table en même temps que la première et en utilisant la même référence pour la valeur :

C'est ce que j'ai fait pour parcourir une seule fois mon fichier.

J'ai une question subsidiaire.

Code :

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

1
2
my $result = sprintf("CAN_ID=0x%X\n",$buf_dico{$k}{TrameNum});
print $FhResultat "$result\n";

Je prend un chiffre en décimal que je converti en hexa avant de coller le resultat dans mon fichier $FhResultat.
Ca fonctionne très bien, je me demande juste si je peux faire ça en une seule ligne.
De ce que j'ai vu sprintf renvoie un string et ne prend pas de filehandler en paramètre, est-ce qu'il existe une solution autre ?

J'ai essayé ça sans succès :

Code :

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

print $FhResultat "CAN_ID=0x%X\n",$buf_dico{$k}{TrameNum};

[Philou67430]

Tout simplement :

Code :

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

print $FhResultat sprintf("CAN_ID=0x%X\n",$buf_dico{$k}{TrameNum});