Discussion :

[miomikio]

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

[djibril]

peux tu r expliquer ce que tu veux?

[Jasmine80]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if($i=~ /[aeoiu]([^aioue])<$1>/)

Ton $1 sort de nul part, si tu veux répéter ce qui est entre parenthèses, utilise \1.

Si tu ne peux pas expliquer clairement ton problème en français, fais le en anglais ou par un exemple.

[Arioch]

Je vois que tu utilises la fonction chop() dans ton script.

Méfie toi car cette fonction retire le dernier caractère de la chaine que tu lui donnes à bouffer, même si ce caractère n'est pas un "\n".

Par prudence, je te recommanderais de plutôt utiliser chomp().

[Invité]

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

Tu peux réexpliquer clairement ton besoin s'il-te-plaît ?