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