Exercice 1 :

Le programme perl ci-dessous fournit sur la sortie standard l'ossature d'une page HTML : les balises de l'entête et celles du corps.

(Ce programme est fourni dans le dossier CORPUS DE TRAVAIL)

#!/usr/bin/perl

# ce programme se charge de créer la structure une page HTML
# qu'il écrit sur la sortie standard
$titre = "";
print "<HTML>\n";

# on écrit l'entête
print "<HEAD><TITLE>$titre</TITLE></HEAD>\n";
print "<BODY>\n";
print "</BODY>\n";

# on écrit la fin du fichier html
print "</HTML>\n";

Modifiez-le de façon à ce qu'il crée, dans le corps de la page, une liste numérotée. Les éléments de cette liste seront les lignes lues sur l'entrée standard (on lira toutes les lignes jusqu'a l'arrivée de fin de fichier sur l'entrée standard, et pour chaque ligne on créera un nouvel item de la liste en sortie). Le programme utilisera la première ligne aussi comme le titre de la page HTML.

Appliquez le programme au fichier p96.fic

#!/usr/bin/perl 

# ce programme se charge de créer la structure une page HTML 
# qu'il écrit sur la sortie standard open (fic, "p96.fic"); 
open (ficex,">ficherfic.html"); 
@tab=<fic>;
my $compteur = 1;
$titre = "$tab[0]"; 
print ficex "<HTML>\n"; 

# on écrit l'entête print ficex "<HEAD><TITLE>$titre</TITLE></HEAD>\n"; 
print ficex "<BODY>\n";
foreach my $ligne (@tab){ 	
	print ficex $compteur, "\t", $ligne," <br/>\n"; 	
	$compteur++;     
	}

print ficex "</BODY>\n"; 
# on écrit la fin du fichier html
print ficex "</HTML>\n";

Beliao julie 2010-06-07