#!/usr/bin/perl #Exercice 1 : # ce programme se charge de créer la structure d'une page HTML qu'il écrit sur la sortie standard # 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 titre de la page HTML. #Appliquez le programme au fichier p96.fic open (FILE, "$ARGV[0]"); print "Donner un nom au fichier de sortie\n"; $out=; chomp $out; open (FILEOUT, ">$out.html"); print FILEOUT "\n"; $i=1; while ($ligne = ) { if ($i==1) { print FILEOUT "$ligne\n"; print FILEOUT "\n"; print FILEOUT "
    \n"; } print FILEOUT "
  1. $ligne
    2. \n"; $i++ ; } print FILEOUT "
\n"; print FILEOUT "\n"; print FILEOUT "\n"; close (FILE); close (FILEOUT);