#!/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, ".")
{
@polys = readdir DIR;
foreach (@polys)
{
chomp;
if (/^(?:enonce|correction)_(.*)\.(?:ps|pdf)$/)
{
$nom_enonce{$1} = "";
if (/^enonce_.*\.(?:ps|pdf)$/)
{
$enonce{$&} = "";
}
elsif (/^correction_.*\.(?:ps|pdf)$/)
{
$correction{$&} = "";
}
}
}
close DIR;
print "";
print "$tr | $MT Enoncé $FMT | $MT énoncé en ps $FMT | $MT énoncé en pdf $FMT | $MT correction en ps $FMT | $MT correction en pdf $FMT | ";
foreach (sort keys %nom_enonce)
{
print "$trr $MT $_ $FMT $1";
$enonce_ps = "enonce_$_.ps";
$affichage_ps = "$_.ps";
$enonce_pdf = "enonce_$_.pdf";
$affichage_pdf = "$_.pdf";
$correction_ps = "correction_$_.ps";
$correction_pdf = "correction_$_.pdf";
if (defined $enonce{$enonce_ps}) { print "$t1 $S $affichage_ps $FS $F1"; } else { print "$t1 $F1"; }
if (defined $enonce{$enonce_pdf}) { print "$t1 $S $affichage_pdf $FS $F1"; } else { print "$t1 $F1"; }
if (defined $correction{$correction_ps}) { print "$t1 $S $correction_ps $FS $F1"; } else { print "$t1 $F1"; }
if (defined $correction{$correction_pdf}) { print "$t1 $S $correction_pdf $FS $F1"; } else { print "$t1 $F1"; }
}
print "
";
}
else
{
print " Problème d'ouverture du répertoire ($!)
";
}
print <
Pour accéder aux programmes
Pour retourner au sommaire