#!/bin/perl -P
#include "./francais.h"

utilise strict;
utilise Data::Dumper;

mon %hdh;                           # mes, ma and mon are all like my

tant_que (<>) {
  suivant sauf_si( r/^(.*?):\e*//); # r -> remplacer \e -> espace
  mon FFqui=FF1;                    # I do not have the Euro sign on my 
                                    # keyboard so I used F(rench) F(ranc)
  pour mon FFchamp( separe) {           
    mes( FFclef, FFvaleur)= separe /=/, FFchamp; 
  FFhdh{FFqui}{FFclef}= FFvaleur;  
  }
}
imprime Dumper( %hdh);