#!/usr/bin/perl #On affiche "Donnez moi le nom du fichier de travail : " print "Donnez moi le nom du fichier de travail : "; #On affecte à la variable $fichier le contenu de l'entrée standard (Pointeur qui permet de lire le flux d'entrée au clavier) my $fichier=; #On supprime le dernier caractère contenu dans la variable $fichier si c'est un retour à la ligne chomp ($fichier); #On affiche "Donnez moi le pole a chercher : " print "Donnez moi le pole a chercher : "; #On affecte à la variable $pole le contenu de l'entrée standard # est un pointeur qui permet de lire le flux d'entrée au clavier my $pole=; #On supprime le dernier caractère contenu dans la variable $pole si c'est un retour à la ligne chomp ($pole); #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, ">resultat.html"); #On écrit le début du fichier html print OUT "\n"; # On écrit l'entête print OUT "\n"; #On écrit le début du corps print OUT "\n"; #Tant qu'on peut associer une ligne du fichier référencé sous le nom FILE à la variable $ligne, on exécute le bloc d'instructions while (my $ligne=) { #Si le contenu de la variable $ligne contient la forme pole contenue dans la variable $pole, on exécute le bloc d'instructions if ($ligne=~/(.*)($pole)(.*)/gi) { #On supprime le dernier caractère contenu dans la variable $ligne seulement 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 "

",$1,"",$2,"",$3,"

\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);