param($_) foreach(@cri); !>
\n"; $t="fr_.*$type.*\.html"; open (DATA,"grep $year desc.txt|grep \"$t\"|")||die "can't open file";#grep $t| print "Résultat de la recherche:

    "; while (){ @a=split '\t',$_; if($a[2]=~/$type/&&$a[0]==$year){ chop($a[2]); print qq(
  • $a[1]

    \n); } } print "
      "; print qq(); } else{ print "sélectionner une année et un type de texte"; } !>