#!/usr/bin/perl #------------------------------------------------------------------ #Exercice 2 : # Programme qui prend en entrée deux textes (traduction l'un de l'autre) # et qui produit en sortie : un alignement numéroté par paragraphe (html) #------------------------------------------------------------------ open (FILEFR, "$ARGV[0]"); # ouvre le fichier placé en premier argument (fic francais) open (FILEEN, "$ARGV[1]"); # ouvre le fichier placé en second argument (fic anglais) print "Donner un nom au fichier de sortie\n"; $out=; chomp $out; open (FILEOUT, ">$out.html"); print FILEOUT "\n$out\n\n\n"; $i=1 ; while (($ligne1 = ) && ($ligne2 = )) # on parcourt les deux textes en parallèle { print FILEOUT "\n"; # la numérotation est alignée en haut de case (comme dans les pièces de théatre) $i++ ; } print FILEOUT "
$i$ligne1$ligne2
\n\n"; close (FILEOUT); close (FILEFR); close (FILEEN);