#!/usr/bin/perl -w #ouverture en local use locale; #ouverture d'un fichier en position 0 dans cygwin béta 20, référencé ensuite par FILE open (FILE, "$ARGV[0]"); #ouverture d'un fichier en écriture, si ce fichier existait auparavant : l'ancien contenu est écrasé. open (OUT, ">contexte.txt"); # on met le fichier dans un tableau appelé lignes @lignes = ; #On met le contenu du premier élément du tableau @lignes dans une variable $titre $titre=$lignes[0]; #On crée un compteur $compteur et on l'initialise à 0 $compteur=0; #On écrit le début du fichier html print OUT "\n"; # On écrit l'entête print OUT "$titre\n"; #On écrit le début du corps print OUT "\n"; #Pour chaque valeur du tableau @lignes qu'on affecte à la variable $ligne, on exécute le bloc d'instructions foreach $ligne (@lignes) { #On incrémente le compteur $compteur++; #On supprime le dernier caractère contenu dans la variable $ligne si c'est un retour à la ligne chomp($ligne); #On écrit la ligne html qui contient le numéro de la ligne suivi du contenu de la variable $ligne print OUT "

",$compteur,"\t",$ligne,"

\n"; } #On écrit la fin du corps print OUT "\n"; # On écrit la fin du fichier html print OUT "\n"; #On ferme le fichier en lecture close(FILE); #On ferme le fichier en écriture close(OUT);