18. Filtrage Minitel

• lancer xtel depuis une xterm contenant un grand historique de ligne : xterm -sb -sl 20000
• Fa�tes le 3611.
• Effectuer une recherche sur le secteur qui vous int�resse. Un clic sur le bouton droit de la souris permet de r�cup�rer dans l'xterm l'ensemble des informations de chaque page minitel re�ue sous forme ASCII.
• Il ne vous reste plus qu'� copier ces informations dans un fichier (dans l'xterm, bouton gauche pour marquer le d�but de la selection, bouton droit pour marquer la fin, bouton du milieu pour coller la selection o� vous vouler).

Le r�sultat est pollu� par les indications de navigation du minitel et les changements de page.

Le script suivant est utile pour filtrer les pages ascii g�n�r�es par xtel. Il �limine les sauts de page et toutes les informations de navigation des pages minitel pour ne garder que les informations pertinentes (nom, adresse et t�l�phone). Avec quelques traitements suppl�mentaires il pourrait ais�ment alimenter une base de donn�es.

#!/usr/bin/perl -w
#
#    minitel-filter.pl
#
#    Copyright (C) 1999, Gilles Lamiral
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# usage:     minitel-filter.pl  input-file
#        or  cat input-file | minitel-filter.pl
<>;
@file = <>;
$file = join("",@file);
@page = split(/                  page suivante  Suite  \nrevoir la liste de specialites\*  Retour \n   infos sur ordre des reponses \* Envoi \n/,$file);
foreach $page (@page) {
 @infos = split(/````````````````````````````````````````\n/,$page);
 @enterprise = split(/    ````````````````````````````````````\n/,$infos[1]);
 foreach $enterprise (@enterprise) {
 print   "=========================================\n",
 "Etat:\n",
 "-----------------------------------------\n";
 @phoneInfos = split(/                                        \n/, $enterprise);
 foreach $phoneInfos (@phoneInfos) {
 print $phoneInfos;
 }
 }
}

Hosting by: Hurra Communications GmbH
Generated: 2007-01-26 18:01:30