#!/usr/bin/perl
##################################################################
# Version 3.0 du script bms
# Recherche sur colonne nom
# Interprétation des espaces
# Minimum trois caractères demandés
##################################################################
# Recuperation depuis le formulaire méthode POST
&Acces;
# Recherche dans la base de données
&Recherche_bd($keys);
# Affichage du resultat
&Affichage;
# Routine de décodage du formulaire envoyé
sub Acces {
# acces au STDIN
read(STDIN, $save_string, $ENV{CONTENT_LENGTH}); # Yes- Use it
# dissocie la chaine de caracteres en une liste
@prompts = split(/&/,$save_string);
foreach (@prompts) {
($name,$value) = split(/=/,$_);
$name =~ s/\%(..)/pack("c",hex($1))/ge;
$value =~ s/\%(..)/pack("c",hex($1))/ge;
$value =~ tr/A-Z/a-z/;
# cree une liste associative
$fields{$name}=$value;
}
# création de la variable pour les recherches
$keys = $fields{'keys'};
}
#######################################################################
sub Recherche_bd {
# dissocie les mots cles le code du symbole + est 2b
@search_key = split(/\x2b/,$keys);
$k =0;
#######################################################################
# accede au fichier contenant la database
open(MYFILE,"bms.cvs");
while(
Vous recherchez un acte de BMS en France ?
Entrer un nom
Auteur | Nom époux | Prénom époux | Acte | Nom épouse | Prénom épouse | Date | INSEE | Commune | |
---|---|---|---|---|---|---|---|---|---|
$source | $auteur | $nom | $daten | $lieun | $dated | $lieud | $date | $commune | $departement | RESULT2 } print "