Exercice 1:

Vous choisirez cinq formes graphiques différentes. Vous construirez ensuite un programme perl qui prend en entrée un état du corpus et un mot donné. Le résultat produit par ce programme doit être une concordance de cette forme dans le texte lu.

Vous appliquerez ce programme sur les différents états du corpus

#!/usr/bin/perl 

print "Donnez le nom du fichier à analyser : "; 
my $file=<STDIN>; 
print "Donnez moi le mot a étudier : "; 
my $pole=<STDIN>; 
chomp ($pole); 
open(FICHIERANALYSE, $file); 
open(FICHIERECRITURE, ">resultat.html"); 

#On tape le début du fichier html print FICHIERECRITURE "<html>\n"; 
print FICHIERECRITURE "<head></head>\n"; 
print FICHIERECRITURE "<body>\n"; 

#Tant qu'il ya des lignes 
while (my $ligne=<FICHIERANALYSE>) { 	
	#Si la ligne contient le mot 	
	if ($ligne=~/(.*)($pole)(.*)/gi) { 		
	# on écrit le résultat 		
	print FICHIERECRITURE "<p>",$1,"<font color=\"red\"><b>",$2,"</b></font>",$3,"</p>\n"; 	
	}
} 

#On écrit la fin du fichier 
print FICHIERECRITURE "</body>\n"; 
print FICHIERECRITURE "</html>\n"; 
close(FICHIERECRITURE);
close(FICHIERANALYSE);

Beliao julie 2010-06-07