#!/usr/bin/perl # chemin de l'interpréteur "perl"
$filename="craie.txt"; # le fichier texte contenant les punitions
srand ; # initialise l'utilisation des nombres
open(FIC, $filename) ; # ouvre le fichier "$filename" en lecture
while(<FIC>) { # tant que non fin de fichier
push(@tab, $_) ; # insere la ligne courante dans le tableau "tab"
}
close(FIC); # ferme le fichier "$filename"
$phrase=$tab[rand(@tab)] ; # affiche une ligne du tableau "tab" au hasard
print "Content-type: Text/html\n\n" ; # indispensable pour que le navigateur
# interprète le résultat comme une page HTML
print <<eof; # tout ce qui suit est affiché tel quel
# jusqu'à la ligne "eof;"
# C'est du HTML normal
<!DOCTYPE HTML PUBLIC -/W3C/DTD HTML 3.2/EN>
<!-- Merci au Filou pour le Perl ! -->
<HTML>
<TITLE>
Les punitions du vilain garçon
</TITLE>
<BODY BACKGROUND="bartclr.jpg" link="#800000">
<CENTER>
<B>
<FONT SIZE=5 FACE="ARIAL" COLOR="#000000">
Les punitions de Bart Simpson au tableau
</font>
<BR><BR>
<A HREF="bart_vo.cgi"><IMG SRC="vo.gif" BORDER=0 ALT="Ça serait pur hasard si c'était la tradale de la VF actuellement au tableau."></A> <IMG SRC="vf.gif" BORDER=0>
<BR><BR>
<TABLE BORDER=1>
<TR>
<TD BGCOLOR="#000000" align=center>
<FONT SIZE=4 FACE="Comic Sans MS","Arial" color="#FFFFFF">
<BR>
eof # fin du "tel quel"
# Test sur les phrases particulières
# 2 phrases le sont, particulières.
# Bart écrit des "idem" sous les lignes de la punition "Je ne prendrai pas les virages à la corde.".
# Cette ligne débute par un # qui disparait à l'affichage.
#
# La punition "Je finirai ce que j'ai comm" ne doit s'afficher qu'une fois :-)
# Elle débute par un point d'exclamation qui disparait à l'affichage.
if (($phrase =~ /^#/) || ($phrase =~ /^!/)) {
$x = length($phrase);
$tronq = substr($phrase,1,$x);
print "$tronq\n";
}
else {
print $phrase;
}
print " \n" ;
for ($i=1;$i<5;$i++) {
print "<BR><BR>\n" ;
if ($phrase =~ /^#/) {
# Bart écrit des "idem" sous les lignes de la punition "Je ne prendrai pas les virages à la corde.".
print " \" \" \" \" \" \" \" \n";
}
elsif ($phrase =~ /^!/) {
# La punition "Je finirai ce que j'ai comm" ne doit s'afficher qu'une fois :-)
print " \n";
}
else {
print $phrase;
}
}
print <<eof;
<BR><BR></FONT></TD>
</TR>
</TABLE>
<BR>
<BR>
<TABLE>
<TR>
<TD align=left width=150>
<A HREF="bart_fr.cgi" onMouseOver="b2.src='nouvelleserie2.gif';window.status='Atenncheun ! Nowébac !';return true \" onMouseOut=\"b2.src='nouvelleserie.gif' ;window.status='';return true"><IMG SRC="nouvelleserie.gif" NAME="b2" BORDER=0 onLoad="tempImg=new Image(0,0); tempImg.src='nouvelleserie2.gif'"></A>
</TD>
<TD align=center width=150>
<A HREF="/~migo/simpsons" onMouseOver="b3.src='pgsmp2.gif'" onMouseOut="b3.src='pgsmp1.gif'"><IMG SRC="pgsmp1.gif" NAME="b3" BORDER=0 onLoad="tempImg2=new Image(0,0); tempImg2.src='pgsmp2.gif'"></A>
</TD>
<TD align=center width=150>
<A HREF="/~migo" onMouseOver="b4.src='pgmg2.gif'" onMouseOut="b4.src='pgmg1.gif'"><IMG SRC="pgmg1.gif" NAME="b4" BORDER=0 onLoad="tempImg3=new Image(0,0); tempImg3.src='pgmg3.gif'"></A>
</TD>
</TR>
</TABLE>
<BR>
</CENTER>
</BODY>
</HTML>
eof
|