1. # ouverture du fichier de test et stockage des lignes dans @lignes
3. open DATA, "< ./textes/File-test-Regexp.txt"; # ouverture du fichier de test en lecture
4. while ($l = <DATA> ) # tant qu'il y a des données dans DATA
5. {
6. chomp($l);
7. push @lignes,$l; # stockage dans la liste
8. }
10. close DATA; # fermeture du fichier
12. # début de l'utilisation des expressions régulières
14. # recherche basique d'un motif
15. print "\n\n" . "*" x 80;
16. print "\nAffichage des lignes contenant de, ie le motif /de/";
17. print "\n" . "*" x 80;
18. foreach $l (@lignes) # pour chaque ligne du fichier
19. {
20. if ($l=~ /de/) # si la ligne contient de...
21.  {
22.  print "\n$l"; #... on l'affiche
23.  }
24. }
26. # recherche basique d'un motif
27. print "\n\n" . "*" x 80;
28. print "\nAffichage des lignes ne contenant pas de r, utiliser la négation de =~, ie !~";
29. print "\n" . "*" x 80;
30. foreach $l (@lignes) # pour chaque ligne du fichier
31. {
32. if ($l!~ /r/) # si la ligne ne contient pas r...
33.  {
34.  print "\n$l"; #... on l'affiche
35.  }
36. }
38. # recherche d'un motif en début de chaine avec ^
39. # l'accent circonflexe en début de motif signifie qu'on doit le trouver en début de chaîne
40. print "\n\n" . "*" x 80;
41. print "\nAffichage des lignes débutant par Passe, ie le motif /^Passe/";
42. print "\n" . "*" x 80;
43. foreach $l (@lignes) # pour chaque ligne du fichier
44. {
45. if ($l=~ /^Passe/) # si la ligne débute par Passe...
46.  {
47.  print "\n$l"; #... on l'affiche
48.  }
49. }
51. # recherche d'un motif en fin de chaine avec $
52. # le $ après un motif signifie qu'on doit le trouver en fin de chaîne
53. print "\n\n" . "*" x 80;
54. print "\nAffichage des lignes finissant par se, ie le motif /se\$/";
55. print "\n" . "*" x 80;
56. foreach $l (@lignes) # pour chaque ligne du fichier
57. {
58. if ($l=~ /se$/) # si la ligne termine par se...
59.  {
60.  print "\n$l"; #... on l'affiche
61.  }
62. }
64. # recherche d'un motif contenant un caractère spécial
65. # les caractères spéciaux sont ^ $ / . \ ? + * ( ) [ ]  { } |
66. # pour chercher un de ces caractères, il faut le précéder d'un \
67. print "\n\n" . "*" x 80;
68. print "\nAffichage des lignes contenant un point d'interrogation, ie le motif /\\?/";
69. print "\n" . "*" x 80;
70. foreach $l (@lignes) # pour chaque ligne du fichier
71. {
72. if ($l=~ /\?/) # si la ligne contient ?...
73.  {
74.  print "\n$l"; #... on l'affiche
75.  }
76. }
78. # recherche d'un /, le motif est donc /\//
79. print "\n\n" . "*" x 80;
80. print "\nAffichage des lignes contenant un slash, ie le motif /\\//";
81. print "\n" . "*" x 80;
82. foreach $l (@lignes) # pour chaque ligne du fichier
83. {
84. if ($l=~ /\//) # si la ligne contient /...
85.  {
86.  print "\n$l"; #... on l'affiche
87.  }
88. }
90. # recherche d'un motif ou d'un autre avec |
91. print "\n\n" . "*" x 80;
92. print "\nAffichage des lignes contenant /se/ ou /es/, ie le motif /se|es/";
93. print "\n" . "*" x 80;
94. foreach $l (@lignes) # pour chaque ligne du fichier
95. {
96. if ($l=~ /se|es/) # si la ligne contient se ou es...
97.  {
98.  print "\n$l"; #... on l'affiche
99.  }
100. }
102. # recherche d'un motif en ignorant la casse, il faut utiliser le modificateur i (ignore)
103. # il faut le placer après le deuxième /
104. # exemple pour chercher log ou LOG ou Log ou LoG etc...., le motif est /log/i
105. print "\n\n" . "*" x 80;
106. print "\nAffichage des lignes contenant le mot log écrit";
107. print "\nindifféremment avec des majuscules ou minuscules";
108. print "\nie contenant le motif /log/i ";
109. print "\n" . "*" x 80;
110. foreach $l (@lignes) # pour chaque ligne du fichier
111. {
112. if ($l=~ /log/i) # si la ligne contient log ou LOG ou LoG ...
113.  {
114.  print "\n$l"; #... on l'affiche
115.  }
116. }
118. # recherche d'un motif avec plusieurs choix pour un même caractère en utilisant les []
119. print "\n\n" . "*" x 80;
120. print "\nAffichage des lignes contenant Perl ou perl, ie le motif /[Pp]erl/";
121. print "\n" . "*" x 80;
122. foreach $l (@lignes) # pour chaque ligne du fichier
123. {
124. if ($l=~ /[Pp]erl/) # si la ligne contient Perl ou perl...
125.  {
126.  print "\n$l"; #... on l'affiche
127.  }
128. }
130. # dans les crochets, on peut mettre des listes.
131. # Exemple pour rechercher des lignes contenant des chiffres, utiliser le motif : /[0-9]/
132. print "\n\n" . "*" x 80;
133. print "\nAffichage des lignes contenant des chiffres, ie le motif /[0-9]/";
134. print "\n" . "*" x 80;
135. foreach $l (@lignes) # pour chaque ligne du fichier
136. {
137. if ($l=~ /[0-9]/) # si la ligne contient des chiffres...
138.  {
139.  print "\n$l"; #... on l'affiche
140.  }
141. }
143. # Exemple pour rechercher des lignes contenant des lettres min ou maj, utiliser le motif : /[a-zA-Z]/
144. print "\n\n" . "*" x 80;
145. print "\nAffichage des lignes contenant des lettre, ie le motif /[a-zA-Z]/";
146. print "\n" . "*" x 80;
147. foreach $l (@lignes) # pour chaque ligne du fichier
148. {
149. if ($l=~ /[a-zA-Z]/) # si la ligne contient des lettres...
150.  {
151.  print "\n$l"; #... on l'affiche
152.  }
153. }
155. # Exemple pour rechercher des lignes débutant par une majuscule suivie d'un chiffre : /^[A-Z][0-9]/
156. print "\n\n" . "*" x 80;
157. print "\nAffichage des lignes débutant par une majuscule suivie d'un chiffre";
158. print "\nie le motif : /^[A-Z][0-9]/";
159. print "\n" . "*" x 80;
160. foreach $l (@lignes) # pour chaque ligne du fichier
161. {
162. if ($l=~ /^[A-Z][0-9]/) # si la ligne débute par une majuscule suivie d'un chiffre : /^[A-Z][0-9]/
163.  {
164.  print "\n$l"; #... on l'affiche
165.  }
166. }
168. # les raccourcis pour les listes
169. # \d n'importe quel chiffre <-> [0-9]
170. # \D tout sauf un chiffre <-> [^\d]
171. # \s un espace, une tabulation ou un retour à la ligne
172. # \S tout sauf un espace, une tabulation ou un retour à la ligne <-> [^\S]
173. # \w un mot : toute suite de caractères délimitée par des espaces, tabulation ou retour à la ligne
175. # Exemple pour rechercher des lignes contenant au moins un mot : /\w/
176. print "\n\n" . "*" x 80;
177. print "\nAffichage des lignes contenant contenant au moins un mot : ie le motif /\\w/";
178. print "\n" . "*" x 80;
179. foreach $l (@lignes) # pour chaque ligne du fichier
180. {
181. if ($l=~ /\w/) # si on trouve un mot...
182.  {
183.  print "\n$l"; #... on l'affiche
184.  }
185. }
187. # Exemple pour rechercher des lignes ne contenant aucun mot : !~ /\w/
188. print "\n\n" . "*" x 80;
189. print "\nAffichage des lignes ne contenant aucun mot : ie le motif  !~ /\\w/";
190. print "\n" . "*" x 80;
191. foreach $l (@lignes) # pour chaque ligne du fichier
192. {
193. if ($l!~ /\w/) # si on ne trouve aucun mot...
194.  {
195.  print "\n$l"; #... on l'affiche
196.  }
197. }
199. # Exemple pour rechercher des lignes contenant un chiffre suivi d'un espace
200. print "\n\n" . "*" x 80;
201. print "\nAffichage des lignes contenant un chiffre suivi d'un espace";
202. print "\nie le motif /\\d\\s/";
203. print "\n" . "*" x 80;
204. foreach $l (@lignes) # pour chaque ligne du fichier
205. {
206. if ($l=~ /\d\s/) # si on trouve un chiffre suivi d'un espace...
207.  {
208.  print "\n$l"; #... on l'affiche
209.  }
210. }
212. # éviter un caractère, l'opérateur sauf : [^]
213. # Exemple pour rechercher des lignes contenant un o mais pas suivi d'un i, utiliser le motif : /o[^i]/
214. print "\n\n" . "*" x 80;
215. print "\nAffichage des lignes contenant un o mais pas suivi d'un i, ie le motif /o[^i]/";
216. print "\n" . "*" x 80;
217. foreach $l (@lignes) # pour chaque ligne du fichier
218. {
219. if ($l=~ /o[^i]/) # si aucun des o de la ligne n'est suivi d'un i...
220.  {
221.  print "\n$l"; #... on l'affiche
222.  }
223. }
225. # quantificateurs {}
226. # Exemple pour rechercher des lignes contenant 3 chiffres consécutifs, utiliser le motif : /\d{3}/
227. print "\n\n" . "*" x 80;
228. print "\nAffichage des lignes contenant 3 chiffres consécutifs, ie le motif /\\d{3}/";
229. print "\n" . "*" x 80;
230. foreach $l (@lignes) # pour chaque ligne du fichier
231. {
232. if ($l=~ /\d{3}/) # si on rencontre 3 chiffres consécutifs...
233.  {
234.  print "\n$l"; #... on l'affiche
235.  }
236. }
238. # quantificateurs {}
239. # Exemple pour rechercher des lignes contenant au moins 4 chiffres consécutifs utiliser le motif : /\d{4,}/
240. print "\n\n" . "*" x 80;
241. print "\nAffichage des lignes contenant au moins 4 chiffres consécutifs";
242. print "\nie le motif /\\d{4,}/";
243. print "\n" . "*" x 80;
244. foreach $l (@lignes) # pour chaque ligne du fichier
245. {
246. if ($l=~ /\d{4,}/) # si on rencontre au moins 4 chiffres consécutifs...
247.  {
248.  print "\n$l"; #... on l'affiche
249.  }
250. }
252. # quantificateurs {}
253. # Exemple pour rechercher des lignes contenant entre 3 et 4 chiffres consécutifs au plus...
254. print "\n\n" . "*" x 80;
255. print "\nAffichage des lignes contenant entre 3 et 4 chiffres consécutifs au plus";
256. print "\nIl faut enlever celles qui en ont au moins 5 à celles qui en ont au moins 3";
257. print "\nie : if (\$l=~ /\\d{3,}/ and \$l!~ /\\d{5,}/)";
258. print "\n" . "*" x 80;
259. foreach $l (@lignes) # pour chaque ligne du fichier
260. {
261. if ($l=~ /\d{3,}/ and $l!~ /\d{5,}/) # si on rencontre entre 3 et 4 chiffres consécutifs au plus...
262.  {
263.  print "\n$l"; #... on l'affiche
264.  }
265. }
267. #ou encore
268. # quantificateurs {}
269. # Exemple pour rechercher des lignes contenant entre 3 et 4 chiffres consécutifs au plus...
270. print "\n\n" . "*" x 80;
271. print "\nAffichage des lignes contenant entre 3 et 4 chiffres consécutifs au plus";
272. print "\nIl faut prendre celles qui en ont 3 ou 4 mais ni précédé, ni suivi d'un chiffre";
273. print "\nie : if (\$l=~ /\\D\\d{3,4}\\D/)";
274. print "\n" . "*" x 80;
275. foreach $l (@lignes) # pour chaque ligne du fichier
276. {
277. if ($l=~ /\D\d{3,4}\D/) # si on rencontre entre 3 et 4 chiffres consécutifs...
278.  {
279.  print "\n$l"; #... on l'affiche
280.  }
281. }
285. # quantificateurs ? + *
286. # ? 0 ou une fois : /\d?/ <-> 0 ou 1 chiffre
287. # + 1 ou plusieurs fois : /\d+/ <-> 1 chiffre ou plus <-> /\d{1,}/
288. # * 0 ou une ou plusieurs fois : /\d*/ <-> 0, 1 ou n chiffres
290. # Exemple pour rechercher des lignes terminant par .jpeg ou . jpg en majuscules ou minuscules : /\.jpe?g$/i
291. print "\n\n" . "*" x 80;
292. print "\nAffichage des lignes terminant par .jpeg ou . jpg en majuscules ou minuscules";
293. print "\nie le motif : /\\.jpe?g\$/i";
294. print "\n" . "*" x 80;
295. foreach $l (@lignes) # pour chaque ligne du fichier
296. {
297. if ($l=~ /\.jpe?g$/i) # si on termine par .jpeg ou . jpg en majuscules ou minuscules...
298.  {
299.  print "\n$l"; #... on l'affiche
300.  }
301. }
303. # Exemple pour rechercher des lignes débutant par au moins un . et peut-être plus : /^\.+/
304. print "\n\n" . "*" x 80;
305. print "\nAffichage des lignes débutant par au moins un . et peut-être plus";
306. print "\nie le motif : /^\\.+/";
307. print "\n" . "*" x 80;
308. foreach $l (@lignes) # pour chaque ligne du fichier
309. {
310. if ($l=~ /^\.+/) # si on débute par au moins un . et peut-être plus
311.  {
312.  print "\n$l"; #... on l'affiche
313.  }
314. }
316. # Utilisation des parenthèses pour le regroupement :
317. # recherche des chaines contenant au moins une fois la syllabe "to"
318. print "\n\n" . "*" x 80;
319. print "\nAffichage des lignes contenant au moins une fois la syllabe \"to\"";
320. print "\nie le motif : /(to)+/";
321. print "\n" . "*" x 80;
322. foreach $l (@lignes) # pour chaque ligne du fichier
323. {
324. if ($l=~ /(to)+/) # si on contient au moins une fois la syllabe "to"
325.  {
326.  print "\n$l"; #... on l'affiche
327.  }
328. }
330. # Exemple pour rechercher des lignes débutant par Login ou login, éventuellement précédé d'un ou plusieurs espaces
331. # motif : /^\s*[Ll]ogin/
332. print "\n\n" . "*" x 80;
333. print "\nAffichage des lignes terminant débutant par Login ou login";
334. print "\néventuellement précédé d'un ou plusieurs espaces";
335. print "\nie le motif : /^\\s*[Ll]ogin/";
336. print "\n" . "*" x 80;
337. foreach $l (@lignes) # pour chaque ligne du fichier
338. {
339. if ($l=~ /^\s*[Ll]ogin/) # si on débute par Login ou login, éventuellement précédé d'un ou plusieurs espaces
340.  {
341.  print "\n$l"; #... on l'affiche
342.  }
343. }
345. # Le joker, c'est le point, il remplace tout ce qu'on veut
346. # Exemple pour rechercher des lignes contenant une date au format dd/mm/aaaa, puis plus loin, une heure au format hh:mm
347. # motif : /\d\d\/\d\d\/\d\d\d\d.+\d\d:\d\d/
348. print "\n\n" . "*" x 80;
349. print "\nAffichage des lignes contenant une date au format dd/mm/aaaa,";
350. print "\npuis plus loin, une heure au format hh:mm";
351. print "\nie le motif : /\\d\\d\\/\\d\\d\\/\\d\\d\\d\\d.+\\d\\d:\\d\\d/";
352. print "\n" . "*" x 80;
353. foreach $l (@lignes) # pour chaque ligne du fichier
354. {
355. if ($l=~ /\d\d\/\d\d\/\d\d\d\d.+\d\d:\d\d/)
356. # si on troube une date au format dd/mm/aaaa, puis plus loin, une heure au format hh:mm
357.  {
358.  print "\n$l"; #... on l'affiche
359.  }
360. }
362. print "\n\n" . "*" x 80;
363. print "\nAffichage des lignes commençant par une lettre et terminant par un chiffre";
364. print "\nie le motif : /^[a-zA-Z].*[0-9]\$/";
365. print "\n" . "*" x 80;
366. foreach $l (@lignes) # pour chaque ligne du fichier
367. {
368. if ($l=~ /^[a-zA-Z].*[0-9]$/) # si on commence par une lettre et on termine par un chiffre...
369.  {
370.  print "\n$l"; #... on l'affiche
371.  }
372. }
374. print "\n\nAu revoir\n\n";

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
my @infos = ({title => "1.a : lignes contenant des chiffres ou des majuscules", regexp => '[0-9A-Z]' },
         {title => "1.b : lignes contenant des points" , regexp => '\.'},
         {title => "1.c : lignes contenant trois points", regexp => '\.{3}'},
         {title => "1.d : lignes contenant des nombres hexadecimaux separes par des blancs", regexp => '(^|\s)[0-9A-Fa-f]+(\s|$)'},
         {title => "1.e : lignes contenant un mot d'au moins 12 caracteres alphanumeriques", regexp => '(^|\s)[0-9A-Za-z]{12,}(\s|$)'},
         {title => "1.f : lignes contenant exactement 5 lettres a (pas nécessairement successives)", regexp => '^[^a]*a[^a]*a[^a]*a[^a]*a[^a]*a[^a]*$'},
         {title => "1.g : lignes contenant des crochets ( ] ou [ )", regexp => '\[|\]'},
         {title => "1.h : lignes ne contenant que des lettres a et des espaces ", regexp => '^[a\s]+$'},
         {title => "1.i : lignes contenant quelque chose qui ressemble a une adresse IP", regexp => '\d{1,3}(\.\d{1,3}){3}'},
         {title => "2.a : lignes vides", regexp => '^$'},
         {title => "2.b : lignes blanches", regexp => '^\s+$'},
         {title => "2.c : lignes non vides", regexp => '^.+$'},
         {title => "3.a : lignes qui ne contiennent pas de a", regexp => '^[^a]*$'},
         {title => "3.b : lignes qui ne contiennent pas des espaces", regexp => '^\S*$'},
         {title => "3.c : lignes qui ne contiennent pas des chiffres décimaux", regexp => '^[^0-9]*$'},
         {title => "4 : lignes qui débutent par un numéro de téléphone au format 01 23 45 67 89", regexp => '^\d{2}(\s\d{2}){4}'},
         {title => "5 : idem 4 mais on peut avoir . ou - a la place des espaces", regexp => '^\d{2}([-\s\.]\d{2}){4}'},
         {title => "6 : idem 5 mais le 0 peut être entoure de parentheses", regexp => '^(\(0\)|\d)\d([-\s\.]\d{2}){4}'},
         {title => "7 : terminent par un tel au format 0 123 456 789, espaces, - ou . et (0)", regexp => '(\(0\)|0)([-\s\.]\d{3}){3}$'});
 
sub afficheTitre {
  my $titre = shift;
  my $len = length($titre);
  print "*" x $len, "\n";
  print $titre, "\n";
  print "*" x $len, "\n";
}
 
sub afficheLignes {
  my $re = shift;
  my @lines = grep /$re/, @_;
  print $_ foreach (@lines);
  print "*" x 5, " ", 0+@lines, " ", "lignes trouvees", " ", "*" x 5, "\n";
}
 
open my $fin, "<", "laisso.txt";
my @lines = <$fin>;
close $fin;
 
foreach (@infos) {
  afficheTitre($_->{title});
  afficheLignes($_->{regexp}, @lines);
  print "\n";
}

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
my @infos = (
         {title => "1.a : lignes contenant des chiffres ou des majuscules", regexp => qr/[0-9A-Z]/ },
         {title => "1.b : lignes contenant des points" , regexp => qr/\./},
         {title => "1.c : lignes contenant trois points", regexp => qr/\.{3}/},
         {title => "1.d : lignes contenant des nombres hexadecimaux separes par des blancs", regexp => qr/(^|\s)[0-9A-F]+(\s|$)/i},
         {title => "1.e : lignes contenant un mot d/au moins 12 caracteres alphanumeriques", regexp => qr/(^|\s)[0-9A-Z]{12,}(\s|$)/i},
         {title => "1.f : lignes contenant exactement 5 lettres a (pas nécessairement successives)", regexp => qr/^([^a]*a){5}[^a]*$/},
         {title => "1.g : lignes contenant des crochets ( ] ou [ )", regexp => qr/\[|\]/},
         {title => "1.h : lignes ne contenant que des lettres a et des espaces ", regexp => qr/^[a\s]+$/},
         {title => "1.i : lignes contenant quelque chose qui ressemble a une adresse IP", regexp => qr/\d{1,3}(\.\d{1,3}){3}/},
         {title => "2.a : lignes vides", regexp => qr/^$/},
         {title => "2.b : lignes blanches", regexp => qr/^\s+$/},
         {title => "2.c : lignes non vides", regexp => qr/^.+$/},
         {title => "3.a : lignes qui ne contiennent pas de a", regexp => qr/^[^a]*$/},
         {title => "3.b : lignes qui ne contiennent pas des espaces", regexp => qr/^\S*$/},
         {title => "3.c : lignes qui ne contiennent pas des chiffres décimaux", regexp => qr/^[^0-9]*$/},
         {title => "4 : lignes qui débutent par un numéro de téléphone au format 01 23 45 67 89", regexp => qr/^\d{2}(\s\d{2}){4}/},
         {title => "5 : idem 4 mais on peut avoir . ou - a la place des espaces", regexp => qr/^\d{2}([-\s\.]\d{2}){4}/},
         # {title => "6 : idem 5 mais le 0 peut être entoure de parentheses", regexp => qr/^(\(0\)|\d)\d([-\s\.]\d{2}){4}/},
         # au vu de son exemple, doit commencer par 0
         {title => "6 : idem 5 mais le 0 peut être entoure de parentheses", regexp => qr/^(\(0\)|0)\d([-\s\.]\d{2}){4}/},
         {title => "7 : terminent par un tel au format 0 123 456 789, espaces, - ou . et (0)", regexp => qr/(\(0\)|0)([-\s\.]\d{3}){3}$/}
        );
 
sub afficheTitre {
  my $titre = shift;
  my $stars = "*" x length($titre);
  print $stars, "\n";
  print $titre, "\n";
  print $stars, "\n";
}
 
sub afficheLignes {
  my $stars = "*" x 5;
  my $regexp = shift;
  my @lines = grep /$regexp/, @_;
  map {print "$_\n"} @lines;
  print "$stars ", scalar(@lines), " lignes trouvees $stars\n";
}
 
open my $fin, "<", "laisso.txt";
my @lines = <$fin>;
chomp @lines;
close $fin;
 
afficheTitre("PERL : Fichier de sortie de l'exercice 2 du TP4" );
foreach (@infos) {
  print "\n";
  afficheTitre($_->{title});
  afficheLignes($_->{regexp}, @lines);
}

1. #!/usr/bin/perl
2. use strict;
3. use warnings;
4. use autodie;
6. my @infos = (
7.          {title => "1.a : lignes contenant des chiffres ou des majuscules", regexp => qr/[0-9A-Z]/ },
8.          {title => "1.b : lignes contenant des points" , regexp => qr/\./},
9.          {title => "1.c : lignes contenant trois points", regexp => qr/\.{3}/},
10.          {title => "1.d : lignes contenant des nombres hexadecimaux separes par des blancs", regexp => qr/(^|\s)[0-9A-F]+(\s|$)/i},
11.          {title => "1.e : lignes contenant un mot d/au moins 12 caracteres alphanumeriques", regexp => qr/(^|\s)[0-9A-Z]{12,}(\s|$)/i},
12.          {title => "1.f : lignes contenant exactement 5 lettres a (pas nécessairement successives)", regexp => qr/^([^a]*a){5}[^a]*$/},
13.          {title => "1.g : lignes contenant des crochets ( ] ou [ )", regexp => qr/\[|\]/},
14.          {title => "1.h : lignes ne contenant que des lettres a et des espaces ", regexp => qr/^[a\s]+$/},
15.          {title => "1.i : lignes contenant quelque chose qui ressemble a une adresse IP", regexp => qr/\d{1,3}(\.\d{1,3}){3}/},
16.          {title => "2.a : lignes vides", regexp => qr/^$/},
17.          {title => "2.b : lignes blanches", regexp => qr/^\s+$/},
18.          {title => "2.c : lignes non vides", regexp => qr/^.+$/},
19.          {title => "3.a : lignes qui ne contiennent pas de a", regexp => qr/^[^a]*$/},
20.          {title => "3.b : lignes qui ne contiennent pas des espaces", regexp => qr/^\S*$/},
21.          {title => "3.c : lignes qui ne contiennent pas des chiffres décimaux", regexp => qr/^[^0-9]*$/},
22.          {title => "4 : lignes qui débutent par un numéro de téléphone au format 01 23 45 67 89", regexp => qr/^\d{2}(\s\d{2}){4}/},
23.          {title => "5 : idem 4 mais on peut avoir . ou - a la place des espaces", regexp => qr/^\d{2}([-\s\.]\d{2}){4}/},
24.          # {title => "6 : idem 5 mais le 0 peut être entoure de parentheses", regexp => qr/^(\(0\)|\d)\d([-\s\.]\d{2}){4}/},
25.          # au vu de son exemple, doit commencer par 0
26.          {title => "6 : idem 5 mais le 0 peut être entoure de parentheses", regexp => qr/^(\(0\)|0)\d([-\s\.]\d{2}){4}/},
27.          {title => "7 : terminent par un tel au format 0 123 456 789, espaces, - ou . et (0)", regexp => qr/(\(0\)|0)([-\s\.]\d{3}){3}$/}
28.         );
30. sub afficheTitre {
31. my $titre = shift;
32. my $stars = "*" x length($titre);
33. print $stars, "\n";
34. print $titre, "\n";
35. print $stars, "\n";
36. }
38. sub afficheLignes {
39. my $stars = "*" x 5;
40. my $regexp = shift;
41. my @lines = grep /$regexp/, @_;
42. map {print "$_\n"} @lines;
43. print "$stars ", scalar(@lines), " lignes trouvees $stars\n";
44. }
46. open my $fin, "<", "RegExpTP4_Ex2.txt";
47. my @lines = <$fin>;
48. chomp @lines;
49. close $fin;
51. open (RAPPORT, ">>SortieRegExpTP4_Ex2.txt" );
53. afficheTitre("PERL : Fichier de sortie de l'exercice 2 du TP4" );
54. foreach (@infos) {
55. print "\n";
56. afficheTitre($_->{title});
57. afficheLignes($_->{regexp}, @lines);

1. #!/usr/bin/perl
2. use strict;
3. use warnings;
4. use autodie;
6. my @infos = (
7.          {title => "1.a : lignes contenant des chiffres ou des majuscules", regexp => qr/[0-9A-Z]/ },
8.          {title => "1.b : lignes contenant des points" , regexp => qr/\./},
9.          {title => "1.c : lignes contenant trois points", regexp => qr/\.{3}/},
10.          {title => "1.d : lignes contenant des nombres hexadecimaux separes par des blancs", regexp => qr/(^|\s)[0-9A-F]+(\s|$)/i},
11.          {title => "1.e : lignes contenant un mot d/au moins 12 caracteres alphanumeriques", regexp => qr/(^|\s)[0-9A-Z]{12,}(\s|$)/i},
12.          {title => "1.f : lignes contenant exactement 5 lettres a (pas nécessairement successives)", regexp => qr/^([^a]*a){5}[^a]*$/},
13.          {title => "1.g : lignes contenant des crochets ( ] ou [ )", regexp => qr/\[|\]/},
14.          {title => "1.h : lignes ne contenant que des lettres a et des espaces ", regexp => qr/^[a\s]+$/},
15.          {title => "1.i : lignes contenant quelque chose qui ressemble a une adresse IP", regexp => qr/\d{1,3}(\.\d{1,3}){3}/},
16.          {title => "2.a : lignes vides", regexp => qr/^$/},
17.          {title => "2.b : lignes blanches", regexp => qr/^\s+$/},
18.          {title => "2.c : lignes non vides", regexp => qr/^.+$/},
19.          {title => "3.a : lignes qui ne contiennent pas de a", regexp => qr/^[^a]*$/},
20.          {title => "3.b : lignes qui ne contiennent pas des espaces", regexp => qr/^\S*$/},
21.          {title => "3.c : lignes qui ne contiennent pas des chiffres décimaux", regexp => qr/^[^0-9]*$/},
22.          {title => "4 : lignes qui débutent par un numéro de téléphone au format 01 23 45 67 89", regexp => qr/^\d{2}(\s\d{2}){4}/},
23.          {title => "5 : idem 4 mais on peut avoir . ou - a la place des espaces", regexp => qr/^\d{2}([-\s\.]\d{2}){4}/},
24.          # {title => "6 : idem 5 mais le 0 peut être entoure de parentheses", regexp => qr/^(\(0\)|\d)\d([-\s\.]\d{2}){4}/},
25.          # au vu de son exemple, doit commencer par 0
26.          {title => "6 : idem 5 mais le 0 peut être entoure de parentheses", regexp => qr/^(\(0\)|0)\d([-\s\.]\d{2}){4}/},
27.          {title => "7 : terminent par un tel au format 0 123 456 789, espaces, - ou . et (0)", regexp => qr/(\(0\)|0)([-\s\.]\d{3}){3}$/}
28.         );
30. sub afficheTitre {
31. my $titre = shift;
32. my $stars = "*" x length($titre);
33. print $stars, "\n";
34. print $titre, "\n";
35. print $stars, "\n";
36. }
38. sub afficheLignes {
39. my $stars = "*" x 5;
40. my $regexp = shift;
41. my @lines = grep /$regexp/, @_;
42. map {print "$_\n"} @lines;
43. print "$stars ", scalar(@lines), " lignes trouvees $stars\n";
44. }
46. open my $fin, "<", "RegExpTP4_Ex2.txt";
47. my @lines = <$fin>;
48. chomp @lines;
49. close $fin;
51. open (my $stars, ">>SortieRegExpTP4_Ex2.txt" );
53. afficheTitre("PERL : Fichier de sortie de l'exercice 2 du TP4" );
54. foreach (@infos) {
55. print "\n";
56. afficheTitre($_->{title});
57. afficheLignes($_->{regexp}, @lines);