Discussion :

[Cyber@l]

Slt je voudrais creer une fonction qui met une chaine passé en param en majuscule mais je n'y arrive pas .

voila ce que j'ai testé

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
 
sub majuscule
{
	my $chaine = $_[0] ;
	my @temp = split (//,$chaine) ;
	my $taille = @temp ;
	my @res = @temp ;
	my result = "" ;
 
	for ($i = 0 ; $i < $taille ; $i++)
	{
		if (("a" ge $temp[$i]) && ("z" le $temp[$i]))
		{
			$res[$i] = $temp[$i] - ('a' - 'A') ;
		}
	}
 
	for ($i = 0 ; $i < $taille ; $i++)
        {
                 $result .= $res[$i] ;
        }
 
	return ($result) ;
}

Merci de votre aide et @++

[Cyber@l]

J'ai trouvé une solution avec une expre reguliaire mais j'aimerais bien savoir pkoi mon premier prog marche pas si possible.

Voila le code avec l'expr reg

Code :

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

1
2
3
4
5
6
7
8
 
sub majusculeOK
{
	my $chaine = $_[0] ;
 
	$chaine =~ tr/a-z/A-Z/ ;
	return $chaine ;
}

@++ et merci

[arthurr]

pourquoi inventer qq chose qui existe ?
print uc("toto\n");

[Cyspak]

De meme pour mettre en minuscules avec : lc('string')

Merci de bien vouloir cocher la case résolu pour ce post

[Cyber@l]

pourquoi inventer qq chose qui existe ?

Pour apprendre tt simplement . Comment fre kkchose de compliqué si on sait pas fre kkchose de simple. Voila mon raisonnement mais sa a rien avoir avec le sujet.
Merci de vos reponses, je vais mettre resolu mais j'avou que j'aurais bien aimé savoir pkoi mon code est faux .

@++

[darkloran]

mais j'avou que j'aurais bien aimé savoir pkoi mon code est faux .

attention aux '$' manquants pour les noms des variables :

Code :

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

 my [b]$[/b]result = "" ;

tu as dû confondre 'greater than' (plus grand que) et 'less than' (plus petit que)

Code :

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

1
2
3
4
5
 
      if (($temp[$i] ge 'a') && ($temp[$i] le 'z'))
      {
         $res[$i] = chr(ord($temp[$i]) - 32) ;
      }

utilise ord et chr pour passer du caractère à la valeur ascii et vice-versa

pour la doc en ligne en francais sur perl, je te conseille ce site

[Cyber@l]

Merci bcp je testerais sa demain, sa doit marcher nikel.
Decidement que des erreurs betes comme souvent .

@++