#recuperation des parametres year et type
use CGI;
$q=new CGI;
@cri=("year","type");
$$_=$q->param($_) foreach(@cri);
!>
RECHERCHE GUIDEE
#navigation par type de textes et par annee
open (DATA,"desc.txt")||die "can't open file";
#while ($dat=){
# @l = split '\t',$dat;
# $l[2] =~ /([A-Z])[0-9_]*\.html$/ && ($typ = $1);
# $valid{$typ}{$l[0]}++;
#}
while (){
@tab = split '\t',$_;
$tab[2] =~ /([A-Z])[0-9_]*\.html$/ && ($tmp_type = $1);
$valid{$tmp_type}{$tab[0]}++;
}
close(DATA);
#%valid a le code des types en cles et un tableau avec les annees en cle comme element
# si il y a un texte pour le type et pour l annee l element correspondant est non nul
foreach $t (sort keys %valid) {
if($t=~/[ADLRSKXYB]/){
print "$t_typ{$t} ";
foreach $y (sort {$a <=> $b} keys %{$valid{$t}}){
print "$y ";
}
print "
\n";
}
}
!>
#si la recherche est par anne ET par type on affiche la reference de tous les textes
if($year && $type){
print qq(Résultat de la recherche en cours: