Discussion :

[super_dz]

Bjr tlm

j'ai un ptit script perl qui je lui donne par STDIN une val1 de début et une val2 de fin

le script incrémente la val1 jusqu'a atteindre la val2 (val2 > val1 evidement) et mis le résultat de cette incrémentation dans un fichier result

le prob est que quand je donne des valeurs avec des 0 a gauche , exemple : val 1 = 00010 et val2 00020, le fichier résult de contient pas les 0 a gauche, le résultat est comme :

00010
11
12
13
14
...

voici le script :

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
 
 
my $Ficsdp = "result".".txt";
 
open(FILE, ">$Ficsdp") or  die("Erreur lors de la creation du fichier $Ficsdp : $!\n");
 
for (my $var = $val1; $var <= $val2 ; $var++) 
{
 
    print FILE "$val1\n";
 
	$val1++;
 
}
 
close (FILE);

comment garder dans le résult les 0 de gauche !

thnx in advance

[Woufeil]

Salut,

Ce qu'il te faut, c'est un affichage formaté, donc utiliser la fonction printf. Tu trouveras facilement des infos dessus. Par exemple, pour afficher toujours 4 chiffres dans un nombre, il te faudra utiliser %04d. Compte ton nombre de caractère de base avec une expression régulière par exemple, et utilise ce nombre dans ton printf.

Je ne te donne pas plus d'infos pour l'instant, si tu n'arrives toujours pas à ton résultat avec ça, reviens nous demander de l'aide