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 @++