salut ,vous pouvez m'aider , je suis entrain de faire un programme qui donne le nombre des mots ont un voyelle et donne le nombre des mots ont un voyelle et ceux suivent de 2 consonne , mais il me donne une erreur :
uninitialized value $1 in regexp compilation at ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 #!/usr/bin/perl -w use strict; my $pvocalle=0; my $cdoppia=0; my $linea; my @words; my $i; while(defined ($linea=<>)) { chop($linea); @words=split( /\W+/, $linea); foreach $i(@words) { if($i=~ /[aeoiu]/) { $pvocalle+=1; } if($i=~ /[aeoiu]([^aioue])<$1>/) { $cdoppia+=1; } } } print "$pvocalle\n"; print "$cdoppia";
Partager