tableau de liens

#!/usr/bin/perl print "Donnez le nom de fichier contenant les liens http \n"; #c'est la liste des pages wgettées $filehttp=; #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=; 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 "\n\ntableau de liens\n\n\n" ; #code de début de tableau while ($ligne=) { print $ligne; chomp($ligne); print FILEOUT ""; } print FILEOUT "\n

$ligne

\n\n"; #code de fin de tableau close(FILEIN); close(FILEOUT);