use locale;
#!/usr/bin/perl
# ce programme se charge de créer la structure une page HTML
# qu'il écrit sur la sortie standard


#On ouvre en lecture le fichier à traiter
#et on le fait pointer sous le nom FILEIN
open(FILEIN, "<$ARGV[0]");

#On crée un tableau
@FILEIN=<FILEIN>;




#On ouvre en écriture le fichier 1stw.txt
#et on le fait pointer sous le nom FILEOUT
#Lorsque le fichier n'existe pas il est créé
#Lorsque le fichier existe déjà le contenu existant
#est remplacé par le contenu que nous allons mettre
open(FILEOUT, ">result1.html");

#On crée un compteur initialisé à 0
$i=0;

#On met la première ligne du fichier en tant que titre
$titre=@FILEIN[0];

# on écrit l'entête
print FILEOUT "<HTML>\n";

# on écrit le corps de la page
#On peut mettre un peu les propriétés que l'on veut!
print FILEOUT "<HEAD><TITLE>$titre</TITLE></HEAD>\n";
print FILEOUT "<BODY>\n";
print FILEOUT "<body bgcolor=#0a5061>\n";
print FILEOUT "<body text=#FFFFFF>\n";
#print FILEOUT "<ol>\n";

#Tant qu'on a des lignes dans le fichier on execute le bloc
#d'instructions:

foreach $lines (@FILEIN) {

	#On incrémente le compteur
	$i++;
	
	#On écrit le numéro de la ligne et la ligne
	print FILEOUT "<p><i><b>$i. </b></i>\t$lines</p>\n";
	#On peut se servir de la liste numérotée <ol><\ol>
	#print FILEOUT "<li>\t$lines</li>\n";
	
	
}

# on écrit la fin du fichier html
#print FILEOUT "<\ol>\n";
print FILEOUT "</BODY>\n";
print FILEOUT "</HTML>\n";

#On ferme le fichier en lecture et le fichier en sortie
close FILEOUT;
close FILEIN;