#!/usr/local/bin/perl
$| = 1;
select STDOUT;
$MMT = " "; # Entête (fond sombre)
$FMMT = " ";
$MT = " ";
$FMT = " ";
$S = "";
$FS = " ";
$tli = " | ";
$trr = " |
| ";
$tr = " |
";
$t1 = "| ";
$t2 = " | ";
$F1 = " | ";
$F2 = " ";
print STDOUT <
ENONCES DE TP POUR LES ETUDIANTS DU DEPARTEMENT D'INFORMATIQUE
$tli $MMT ENONCES DE TP POUR LES ETUDIANTS DU DEPARTEMENT D'INFORMATIQUE $FMMT
DATA
if (opendir DIR, ".")
{
print "";
print "$tr | $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 "
";
}
else
{
print " Problème d'ouverture du répertoire ($!)
";
}
print STDOUT <