Discussion :

[louisis]

salut ,

je dois compter le nombre de "e", de"a" et de "i" dans la chaine suivante:
$voyelle = " je débute en perl ",

voici ce que j'ai codé:
if ( $voyelle =~ m/a/ ) { $a=$a+1; }
if ( $voyelle =~ m/e/ ) { $e=$e+1;}
if ( $voyelle =~ m/i/ ) { $i=$i+1}

mais ca me renvoit 1 pour $a, $e et $i

Comment faire?
merci

[djibril]

#!/usr/bin/perl -w
use strict;
my $voyelle;
my $a = 0;
$voyelle = " je debute en perl ";
while ( $voyelle =~ /e/g )
{ $a =$a+1; }
print "$a\n";

[ma2th]

Salut,
je crois qu'il y a un truc comme ça:

Code :

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

my @tab= $voyelle =~/a/g;

qui remplit toutes les occurences donc la longueur de tab correspond au nombre d'occurences.
A vérifier.
Pensez aux balises code! c'est plus lisible!

Matthieu

[louisis]

Merci beaucoup! ca marche!

Code :

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

 je penserai aux balises de code la prochaine fois!