use CGI;
$q=new CGI;
@cri=("year","type");
$$_=$q->param($_) foreach(@cri);
!>
#cas d une recherche par annee ET par type de texte
if($year && $type){
$t_er="fr_.*$type.*\.html";
open (TYPE,"grep \"$type\" \"type.txt\"|")||die "can't open file";
while (){
@tab=split '-',$_;
if($tab[0] eq $type){$descri=$tab[1];}
}
open (DATA,"grep $year desc.txt|grep \"$t_er\"|")||die "can't open file";
print qq($descri de $year:
);
while (){
@tab=split '\t',$_;
if($tab[2]=~/$type/&&$tab[0]==$year){
chop($tab[2]);
#suppression de tout ceux qui est entre () ou entre []
$tab[1]=~s/\(.*\)//g;
$tab[1]=~s/\[.*\]//g;
#les textes sans description ne son pas affiches
if($tab[1]){print qq(
NOUVELLE RECHERCHE);
}
#cas d une recherche par type de texte
elsif(!$year && $type){
$t_er="fr_.*$type.*\.html";
open (TYPE,"grep \"$type\" \"type.txt\"|")||die "can't open file";
while (){
@tab=split '-',$_;
if($tab[0] eq $type){$descri=$tab[1];}
}
open (DATA,"grep \"$t_er\" \"desc.txt\"|")||die "can't open file";
print qq($descri:
);
#%y contient tous les $type classes par annee avec leur descriptif et le nom de fichier correspondant
while (){
@tab=split '\t',$_;
if($tab[2]=~/$type/){
$y{$tab[0]}{$tab[2]}=$tab[1];
}
}
foreach $ye (sort keys %y) {
print "$ye
NOUVELLE RECHERCHE);
}
#cas d une recherche par annee
elsif($year && !$type){
print qq(Année $year:
);
#%type contient les code des types en cles en le descriptif correspondant pour element
open (TYPE,"type.txt")||die "can't open file";
while (){
@tab=split '-',$_;
$t_type{$tab[0]}=$tab[1];
}
open (DATA,"grep $year desc.txt|")||die "can't open file";
while (){
@tab=split '\t',$_;
if($tab[0]==$year){
$tab[2] =~ /([A-Z])[0-9_]*\.html$/ && ($typ = $1);
$t{$typ}{$tab[2]}=$tab[1];
}
}
#%y contient tous les $type classes par annee avec leur descriptif et le nom de fichier correspondant
foreach $ty (sort keys %t) {
if($ty=~/[ADLRSKXYB]/){
print "$t_type{$ty}
);
print "pour rechercher un document sélectionner une année et un type de texte";
print "ou cliquer sur un type de textes pour voir tous les textes de ce type ";
print qq( Nous avons indexé, par type de texte et par année, les pages du site europa.eu.int qui donnent en français les principaux textes règlementaires des Communautés européennes. );
print qq(
Cette indexation a été réalisée dans le cadre d'un projet de recherche de l');
print qq();
print qq(Ecole des mines de Paris sur l'informatique juridique et le Web. Tous commentaires doivent être adressés à );
print qq(Robert Mahl );
}
!>