Re,

Pour encore reduire la saisie et rendre la ligne
map {for my $e(keys %h){ if ($_ =~ /(.*)$e=?.*/){ $_=~ s/.*/\$\$$e=$h{$e}/}}} @p;encore plus condesé tu peux écrire
map {for my $e(keys %h){if (/(.*)$e=?.*/){s/.*/\$\$$e=$h{$e}/}}} @p;

Si tu veux l'écrire come une boucle while tu peux faire comme ça

map {
for my $e(keys %h){
if ($_ =~ /(.*)$e=?.*/){
$_=~ s/.*/\$\$$e=$h{$e}/
}
}
} @p;ou
map {
for my $e(keys %h){
if (/(.*)$e=?.*/){
s/.*/\$\$$e=$h{$e}/
}
}
} @p;
lami20j