Discussion :

[franck95100]

Je suis débutant en perl mais j'ai des notions en c et c++

Mon script demande a l'utilisateur d'entrer des mots jusqu'au moment ou il entre le caractère @ puis il trie la liste par ordre alphabétique et il l'affiche.

Je ne comprend pas pourquoi dans mon script au moment ou j'affiche ma liste il y ai un @

Si quelqu'un peux m'aider!

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
$nb_de_mots;
$mot;
$i=0;
$j=0;
@liste;
 
until($mot eq '@')
{
	print "\nEntre un mot, @ pour arreter\n";
	$mot=<STDIN>;
    chomp($mot);
 
	if ($mot ne '@')
	{
		push(@liste,$mot);
 
	}
	$i++;
 
}
 
@liste = sort @liste;
 
foreach(@liste)
{
	print "$_\n";
}

[Beniou]

Es-tu sûr qu'il affiche le "@" ? Je dis cela car pour moi cela fonctionne (il n'affiche pas le @).

Le seul soucis que je vois est que tu n'utilises pas les pragma "strict" et "warnings" qui t'éviteront pas mal d'erreurs.

Pour cela tu dois mettre au début de ton script :

Code :

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

1
2
3
 
use strict;
use warnings;

Ensuite tu dois déclarer tes variables avec le mot clé "my" car la portée de tes variables est importante.
Si tu rajoutes ces deux lignes tu verras quelques messages au lancement de ton script.

Sinon pour info la déclaration du style suivant ne sert à rien en PERL à moins que tu ne les initialises avec une valeur (ou undef):

Code :

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

1
2
 
$mot;

On voit bien l'influence du C/C++