param($_) foreach(@cri); !>
RECHERCHE GUIDEE
Année


Type de texte
){ @tab=split '-',$_; print qq($tab[1]
); #%t_type tableau asso ontenat le code en cle et le descriptif comme element $t_typ{$tab[0]}=$tab[1]; } close(TYPE); !>

){ # @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"; } } !>

Résultat de la recherche en cours:

); $t_er="fr_.*$type.*\.html"; open (DATA,"grep $year desc.txt|grep \"$t_er\"|")||die "can't open file";#grep $t| while (){ @tab=split '\t',$_; if($tab[2]=~/$type/&&$tab[0]==$year){ @nom=split '\.',$tab[2]; @nom=split '_',$nom[0]; if($nom[2]){$nom=join '_',$nom[1],$nom[2];} else{$nom=pop @nom;} chop($tab[2]); if($tab[1]){print qq($nom \n);} } } print qq(

NOUVELLE RECHERCHE); } if(!$year && $type){ print qq(Résultat de la recherche en cours:

); $t_er="fr_.*$type.*\.html"; open (DATA,"grep \"$t_er\" desc.txt|")||die "can't open file"; while (){ @tab=split '\t',$_; if($tab[2]=~/$type/){ @nom=split '\.',$tab[2]; @nom=split '_',$nom[0]; if($nom[2]){$nom=join '_',$nom[1],$nom[2];} else{$nom=pop @nom;} chop($tab[2]); if($tab[1]){print qq($nom \n);} } } print qq(

NOUVELLE RECHERCHE); } if($year && !$type){ print qq(Résultat de la recherche en cours:

); open (DATA,"grep $year desc.txt|")||die "can't open file"; while (){ @tab=split '\t',$_; if($tab[0]==$year){ @nom=split '\.',$tab[2]; @nom=split '_',$nom[0]; if($nom[2]){$nom=join '_',$nom[1],$nom[2];} else{$nom=pop @nom;} chop($tab[2]); if($tab[1]){print qq($nom \n);} } } print qq(

NOUVELLE RECHERCHE); } !>