#!/usr/bin/perl # ce programme se charge de créer la structure une page HTML # qu'il écrit sur la sortie standard $fichier1=$ARGV[0]; $fichier2=$ARGV[1]; open(FILE ,$fichier1);#"desqueyroux.fr" open(FILEIN,$fichier2 );#"desqueyroux.ang" open(OUT, ">desqueyrouxFR-ANG2.html"); # on crée une liste à partir du fichier print "donnez un titre pour le resultat\n"; $titre=; print OUT "\n"; # on écrit l'entête print OUT "$titre\n"; print "\n"; # on crée un tableau print OUT "\n"; #tant qu'il y a quelque chose dans file et filein... while (($ligne=) && ($line=)) { # chomp permet de supprimer le retour chariot en fin de ligne chomp($ligne); chomp($line); #on insère les lignes dans le tableau print OUT "\n"; } # on ferme le tableau print OUT "\n"; # on écrit la fin du fichier html print "\n"; close FILE; close FILEIN; close OUT;
$ligne$line