#!/usr/bin/perl

print  "Donnez le nom de fichier contenant les liens http \n"; #c'est la liste des pages wgettées
$filehttp=<STDIN>; #lecture de ce que l'utilisateur entre au clavier et association à une variable
print "$filehttp";
chomp($filehttp); #on supprime le retour chariot
print  "Donnez un nom de fichier html où stocker ces liens \n"; #c'est la liste des pages wgettées
$filehtml=<STDIN>;
print "$filehtml";
chomp($filehtml);

open(FILEIN,"$filehttp"); # ouverture du fichier des pages wgettées en lecture
open(FILEOUT,">$filehtml"); # ouverture du fichier HTML en écriture

print FILEOUT "<html>\n<head>\n<title>tableau de liens</title>\n</head><body>\n<table border=\"1\">\n" ; #code de début de tableau


while ($ligne=<FILEIN>) {
    print $ligne;
    chomp($ligne);
    print FILEOUT "<tr><td>$ligne</td></tr>";

}

print FILEOUT "\n</table>\n</body>\n</html>"; #code de fin de tableau

close(FILEIN);
close(FILEOUT);
