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";