1
2
3
4
5
6
7
8

while ($phrase=~/(?=\s($patron2))/g) { 
	# On prend le terme et le patron et on les met dans le diccionaire comme clé et valeur:
	my $terme=$1;
	$terme=~s/\/[^ ]+//g;
	$dicoPatron{$patron}->{$terme}++;
	# On incrémente le compteur de nombre de termes:
	$nbTerme++;
}