param($_) foreach(@cri); !>
){ @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:

"; 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
"; } print qq(

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}
    "; foreach $f (sort {$a <=> $b} keys %{$t{$ty}}){ $t{$ty}{$f}=~s/\(.*\)//g; $t{$ty}{$f}=~s/\(.*\)//g; if($t{$ty}{$f}){print qq(
  • $t{$ty}{$f}
    );} } print "


\n"; } } print qq(

NOUVELLE RECHERCHE); } #page d accueil else{ print qq(

Textes Communautaires sur le Web

); 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(
Ces textes sont en outre accessibles

Nombre de textes indexés :
); $total=$cpt_A+$cpt_D+$cpt_L+$cpt_R+$cpt_S+$cpt_X+$cpt_Y+$cpt_B+$cpt_K; print qq(

Nombre total de textes : $total
); 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
); } !>