#!/usr/local/bin/perl $| = 1; select STDOUT; $MMT = " "; # Entête (fond sombre) $FMMT = " "; $MT = " "; $FMT = " "; $S = ""; $FS = " "; $tli = "
| $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 "
|---|