#!/usr/local/bin/perl $| = 1; select STDOUT; $MMT = " "; # Entête (fond sombre) $FMMT = " "; $MT = " "; $FMT = " "; $S = ""; $FS = " "; $tli = "
| $MT Thème $FMT | $MT Nombre et lien $FMT | "; @themes = readdir DIR; foreach (sort @themes) { chomp; if (/^[^.]+$/) { $repertoire = $_; print "$trr $MT $repertoire $FMT $1"; $nombre =`ls $repertoire | grep -c "enonce_.*\.pdf`; chomp $nombre; if ($repertoire eq "PERL") { print "$t1 $nombre $F1"; } else { print "$t1 $nombre $F1"; } } } close DIR; print "
|---|